Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children d2f30a177268
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
58 (defvar gnus-mailing-list-groups nil 58 (defvar gnus-mailing-list-groups nil
59 "*Regexp matching groups that are really mailing lists. 59 "*Regexp matching groups that are really mailing lists.
60 This is useful when you're reading a mailing list that has been 60 This is useful when you're reading a mailing list that has been
61 gatewayed to a newsgroup, and you want to followup to an article in 61 gatewayed to a newsgroup, and you want to followup to an article in
62 the group.") 62 the group.")
63
64 (defvar gnus-add-to-list nil
65 "*If non-nil, add a `to-list' parameter automatically.")
63 66
64 (defvar gnus-sent-message-ids-file 67 (defvar gnus-sent-message-ids-file
65 (nnheader-concat gnus-directory "Sent-Message-IDs") 68 (nnheader-concat gnus-directory "Sent-Message-IDs")
66 "File where Gnus saves a cache of sent message ids.") 69 "File where Gnus saves a cache of sent message ids.")
67 70
365 368
366 (defun gnus-post-news (post &optional group header article-buffer yank subject 369 (defun gnus-post-news (post &optional group header article-buffer yank subject
367 force-news) 370 force-news)
368 (when article-buffer 371 (when article-buffer
369 (gnus-copy-article-buffer)) 372 (gnus-copy-article-buffer))
370 (let ((gnus-article-reply article-buffer)) 373 (let ((gnus-article-reply article-buffer)
374 (add-to-list gnus-add-to-list))
371 (gnus-setup-message (cond (yank 'reply-yank) 375 (gnus-setup-message (cond (yank 'reply-yank)
372 (article-buffer 'reply) 376 (article-buffer 'reply)
373 (t 'message)) 377 (t 'message))
374 (let* ((group (or group gnus-newsgroup-name)) 378 (let* ((group (or group gnus-newsgroup-name))
375 (pgroup group) 379 (pgroup group)
404 (progn 408 (progn
405 (message-mail (or to-address to-list)) 409 (message-mail (or to-address to-list))
406 ;; Arrange for mail groups that have no `to-address' to 410 ;; Arrange for mail groups that have no `to-address' to
407 ;; get that when the user sends off the mail. 411 ;; get that when the user sends off the mail.
408 (when (and (not to-list) 412 (when (and (not to-list)
409 (not to-address)) 413 (not to-address)
414 add-to-list)
410 (push (list 'gnus-inews-add-to-address pgroup) 415 (push (list 'gnus-inews-add-to-address pgroup)
411 message-send-actions))) 416 message-send-actions)))
412 (set-buffer gnus-article-copy) 417 (set-buffer gnus-article-copy)
413 (message-wide-reply to-address))) 418 (message-wide-reply to-address)))
414 (when yank 419 (when yank
816 "Attempts to go through the Gnus source file and report what variables have been changed. 821 "Attempts to go through the Gnus source file and report what variables have been changed.
817 The source file has to be in the Emacs load path." 822 The source file has to be in the Emacs load path."
818 (interactive) 823 (interactive)
819 (let ((files '("gnus.el" "gnus-sum.el" "gnus-group.el" 824 (let ((files '("gnus.el" "gnus-sum.el" "gnus-group.el"
820 "gnus-art.el" "gnus-start.el" "gnus-async.el" 825 "gnus-art.el" "gnus-start.el" "gnus-async.el"
821 "gnus-msg.el" "gnus-score.el" "gnus-win.el" 826 "gnus-msg.el" "gnus-score.el" "gnus-win.el" "gnus-topic.el"
822 "nnmail.el" "message.el")) 827 "nnmail.el" "message.el"))
823 file expr olist sym) 828 file expr olist sym)
824 (gnus-message 4 "Please wait while we snoop your variables...") 829 (gnus-message 4 "Please wait while we snoop your variables...")
825 (sit-for 0) 830 (sit-for 0)
826 ;; Go through all the files looking for non-default values for variables. 831 ;; Go through all the files looking for non-default values for variables.