procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge changes made in Gnus trunk.

Browse source 
gnus.el (debbugs-gnu): Renamed from debbugs-emacs.
message.el (message-reply): Work around mysterious bug where `message-mode' seems to overwrite the locally bound `subject' variable.
This commit is contained in:
Lars Magne Ingebrigtsen 2011-07-15 23:16:19 +00:00 • committed by Katsumi Yamaoka
parent 6ccf7859d6
commit c152c1d6be
3 changed files with 22 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View file

@ -1,3 +1,10 @@
2011-07-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.el (debbugs-gnu): Renamed from debbugs-emacs.
* message.el (message-reply): Work around mysterious bug where
`message-mode' seems to overwrite the locally bound `subject' variable.
2011-07-14 Andrew Cohen <cohen@andy.bu.edu>
* nnimap.el (nnimap-request-thread): Ensure search is performed in

5
lisp/gnus/gnus.el
View file

@ -4381,12 +4381,11 @@ prompt the user for the name of an NNTP server to use."
(gnus-1 arg dont-connect slave)
(gnus-final-warning)))
(autoload 'debbugs-emacs "debbugs-gnu")
(autoload 'debbugs-gnu "debbugs-gnu")
(defun gnus-list-debbugs ()
"List all open Gnus bug reports."
(interactive)
(debbugs-emacs '("important" "normal" "minor" "wishlist")
"gnus"))
(debbugs-gnu nil "gnus"))
;; Allow redefinition of Gnus functions.

27
lisp/gnus/message.el
View file

@ -6878,20 +6878,19 @@ Useful functions to put in this list include:
(unless follow-to
(setq follow-to (message-get-reply-headers wide to-address))))
(unless (message-mail-user-agent)
(message-pop-to-buffer
(message-buffer-name
(if wide "wide reply" "reply") from
(if wide to-address nil))
switch-function))
(setq message-reply-headers
(vector 0 subject from date message-id references 0 0 ""))
(message-setup
`((Subject . ,subject)
,@follow-to)
cur)))
(let ((headers
`((Subject . ,subject)
,@follow-to)))
(unless (message-mail-user-agent)
(message-pop-to-buffer
(message-buffer-name
(if wide "wide reply" "reply") from
(if wide to-address nil))
switch-function))
(setq message-reply-headers
(vector 0 (cdr (assq 'Subject headers))
from date message-id references 0 0 ""))
(message-setup headers cur))))
;;;###autoload
(defun message-wide-reply (&optional to-address)