Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
402 (if post 402 (if post
403 (progn 403 (progn
404 (message-mail (or to-address to-list)) 404 (message-mail (or to-address to-list))
405 ;; Arrange for mail groups that have no `to-address' to 405 ;; Arrange for mail groups that have no `to-address' to
406 ;; get that when the user sends off the mail. 406 ;; get that when the user sends off the mail.
407 (push (list 'gnus-inews-add-to-address pgroup) 407 (when (and (not to-list)
408 message-send-actions)) 408 (not to-address))
409 (push (list 'gnus-inews-add-to-address pgroup)
410 message-send-actions)))
409 (set-buffer gnus-article-copy) 411 (set-buffer gnus-article-copy)
410 (message-wide-reply to-address))) 412 (message-wide-reply to-address)))
411 (when yank 413 (when yank
412 (gnus-inews-yank-articles yank)))))) 414 (gnus-inews-yank-articles yank))))))
413 415