Commit c152c1d6 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

Merge changes made in Gnus trunk.

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.
parent 6ccf7859
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> 2011-07-14 Andrew Cohen <cohen@andy.bu.edu>
   
* nnimap.el (nnimap-request-thread): Ensure search is performed in * nnimap.el (nnimap-request-thread): Ensure search is performed in
......
...@@ -4381,12 +4381,11 @@ prompt the user for the name of an NNTP server to use." ...@@ -4381,12 +4381,11 @@ prompt the user for the name of an NNTP server to use."
(gnus-1 arg dont-connect slave) (gnus-1 arg dont-connect slave)
(gnus-final-warning))) (gnus-final-warning)))
(autoload 'debbugs-emacs "debbugs-gnu") (autoload 'debbugs-gnu "debbugs-gnu")
(defun gnus-list-debbugs () (defun gnus-list-debbugs ()
"List all open Gnus bug reports." "List all open Gnus bug reports."
(interactive) (interactive)
(debbugs-emacs '("important" "normal" "minor" "wishlist") (debbugs-gnu nil "gnus"))
"gnus"))
;; Allow redefinition of Gnus functions. ;; Allow redefinition of Gnus functions.
......
...@@ -6878,20 +6878,19 @@ Useful functions to put in this list include: ...@@ -6878,20 +6878,19 @@ Useful functions to put in this list include:
(unless follow-to (unless follow-to
(setq follow-to (message-get-reply-headers wide to-address)))) (setq follow-to (message-get-reply-headers wide to-address))))
(unless (message-mail-user-agent) (let ((headers
(message-pop-to-buffer `((Subject . ,subject)
(message-buffer-name ,@follow-to)))
(if wide "wide reply" "reply") from (unless (message-mail-user-agent)
(if wide to-address nil)) (message-pop-to-buffer
switch-function)) (message-buffer-name
(if wide "wide reply" "reply") from
(setq message-reply-headers (if wide to-address nil))
(vector 0 subject from date message-id references 0 0 "")) switch-function))
(setq message-reply-headers
(message-setup (vector 0 (cdr (assq 'Subject headers))
`((Subject . ,subject) from date message-id references 0 0 ""))
,@follow-to) (message-setup headers cur))))
cur)))
;;;###autoload ;;;###autoload
(defun message-wide-reply (&optional to-address) (defun message-wide-reply (&optional to-address)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment