Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
173 (make-local-variable 'gnus-newsgroup-name) 173 (make-local-variable 'gnus-newsgroup-name)
174 (run-hooks 'gnus-message-setup-hook)) 174 (run-hooks 'gnus-message-setup-hook))
175 (gnus-configure-windows ,config t)))) 175 (gnus-configure-windows ,config t))))
176 176
177 (defun gnus-inews-add-send-actions (winconf buffer article) 177 (defun gnus-inews-add-send-actions (winconf buffer article)
178 (gnus-make-local-hook 'message-sent-hook) 178 (make-local-hook 'message-sent-hook)
179 (gnus-add-hook 'message-sent-hook 'gnus-inews-do-gcc nil t) 179 (gnus-add-hook 'message-sent-hook 'gnus-inews-do-gcc nil t)
180 (setq message-post-method 180 (setq message-post-method
181 `(lambda (arg) 181 `(lambda (arg)
182 (gnus-post-method arg ,gnus-newsgroup-name))) 182 (gnus-post-method arg ,gnus-newsgroup-name)))
183 (setq message-newsreader (setq message-mailer (gnus-extended-version))) 183 (setq message-newsreader (setq message-mailer (gnus-extended-version)))
592 592
593 (defun gnus-summary-reply-with-original (n &optional wide) 593 (defun gnus-summary-reply-with-original (n &optional wide)
594 "Start composing a reply mail to the current message. 594 "Start composing a reply mail to the current message.
595 The original article will be yanked." 595 The original article will be yanked."
596 (interactive "P") 596 (interactive "P")
597 (gnus-summary-reply (gnus-summary-work-articles n))) 597 (gnus-summary-reply (gnus-summary-work-articles n) wide))
598 598
599 (defun gnus-summary-wide-reply (&optional yank) 599 (defun gnus-summary-wide-reply (&optional yank)
600 "Start composing a wide reply mail to the current message. 600 "Start composing a wide reply mail to the current message.
601 If prefix argument YANK is non-nil, the original article is yanked 601 If prefix argument YANK is non-nil, the original article is yanked
602 automatically." 602 automatically."