mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

2000-11-06 ShengHuo ZHU <zsh@cs.rochester.edu>

Browse source 
* gnus-msg.el (gnus-inews-group-method): New function.
	(gnus-inews-do-gcc): Use it.

	*gnus-msg.el: (gnus-inews-add-send-actions): Use
	`gnus-agent-possibly-do-gcc' if Agentized.
	(gnus-inews-add-send-actions): Add `gnus-agent-possibly-save-gcc'
	to `message-header-hook'.
This commit is contained in:
Dave Love 2000-11-06 23:39:09 +00:00
parent d8cc10e1d7
commit 0342aa5b20
1 changed files with 22 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lisp/gnus/gnus-msg.el
View file

@ -4,6 +4,7 @@
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Maintainer: bugs@gnus.org
;; Keywords: news
;; This file is part of GNU Emacs.
@ -276,7 +277,11 @@ the Gcc: header for archiving purposes."
(defun gnus-inews-add-send-actions (winconf buffer article)
(make-local-hook 'message-sent-hook)
(add-hook 'message-sent-hook 'gnus-inews-do-gcc nil t)
(add-hook 'message-sent-hook (if gnus-agent 'gnus-agent-possibly-do-gcc
'gnus-inews-do-gcc) nil t)
(when gnus-agent
(make-local-hook 'message-header-hook)
(add-hook 'message-header-hook 'gnus-agent-possibly-save-gcc nil t))
(setq message-post-method
`(lambda (arg)
(gnus-post-method arg ,gnus-newsgroup-name)))
@ -1037,6 +1042,21 @@ this is a reply."
;;; Gcc handling.
(defun gnus-inews-group-method (group)
(cond ((and (null (gnus-get-info group))
(eq (car gnus-message-archive-method)
(car
(gnus-server-to-method
(gnus-group-method group)))))
;; If the group doesn't exist, we assume
;; it's an archive group...
gnus-message-archive-method)
;; Use the method.
((gnus-info-method (gnus-get-info group))
(gnus-info-method (gnus-get-info group)))
;; Find the method.
(t (gnus-group-method group))))
;; Do Gcc handling, which copied the message over to some group.
(defun gnus-inews-do-gcc (&optional gcc)
(interactive)
@ -1055,21 +1075,7 @@ this is a reply."
;; Copy the article over to some group(s).
(while (setq group (pop groups))
(gnus-check-server
(setq method
(cond ((and (null (gnus-get-info group))
(eq (car gnus-message-archive-method)
(car
(gnus-server-to-method
(gnus-group-method group)))))
;; If the group doesn't exist, we assume
;; it's an archive group...
gnus-message-archive-method)
;; Use the method.
((gnus-info-method (gnus-get-info group))
(gnus-info-method (gnus-get-info group)))
;; Find the method.
(t (gnus-group-method group)))))
(gnus-check-server method)
(setq method (gnus-inews-group-method group)))
(unless (gnus-request-group group t method)
(gnus-request-create-group group method))
(save-excursion