[gnus git] branch master updated: =2= (message-reply): Take an optional switch-buffer parameter so that Gnus window confs are respected better. ; Indent.
Lars Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via b2ea476e0bc6e2973976b376c15be5381fe3127f (commit)
via 1132a4961451051218a8f108bf86af028d4d84d2 (commit)
from 8bba88d8ff914135dbeac96d1ad7d7f7ba313b12 (commit)
- Log -----------------------------------------------------------------
commit b2ea476e0bc6e2973976b376c15be5381fe3127f
Author: Lars Ingebrigtsen <[email protected]>
Date: Mon Feb 14 12:36:58 2011 -0800
(message-reply): Take an optional switch-buffer parameter so that Gnus window confs are respected better.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0bfa2b0..6dc0c60 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-14 Lars Ingebrigtsen <[email protected]>
+
+ * message.el (message-reply): Take an optional switch-buffer parameter
+ so that Gnus window confs are respected better.
+
2011-02-14 Teodor Zlatanov <[email protected]>
* auth-source.el (auth-source-backend-parse-parameters): Don't rely on
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index f64553a..b199dcc 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1123,7 +1123,7 @@ If VERY-WIDE, make a very wide reply."
(insert headers))
(goto-char (point-max)))
(mml-quote-region (point) (point-max))
- (message-reply nil wide)
+ (message-reply nil wide 'switch-to-buffer)
(when yank
(gnus-inews-yank-articles yank))
(gnus-summary-handle-replysign)))))
diff --git a/lisp/message.el b/lisp/message.el
index bfe07e6..c8a706e 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6823,7 +6823,7 @@ Useful functions to put in this list include:
subject)
;;;###autoload
-(defun message-reply (&optional to-address wide)
+(defun message-reply (&optional to-address wide switch-function)
"Start editing a reply to the article in the current buffer."
(interactive)
(require 'gnus-sum) ; for gnus-list-identifiers
@@ -6866,7 +6866,8 @@ Useful functions to put in this list include:
(message-pop-to-buffer
(message-buffer-name
(if wide "wide reply" "reply") from
- (if wide to-address nil))))
+ (if wide to-address nil))
+ switch-function))
(setq message-reply-headers
(vector 0 subject from date message-id references 0 0 ""))
commit 1132a4961451051218a8f108bf86af028d4d84d2
Author: Lars Ingebrigtsen <[email protected]>
Date: Mon Feb 14 12:23:48 2011 -0800
Indent.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 08fef23..f64553a 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1081,14 +1081,14 @@ If VERY-WIDE, make a very wide reply."
(gnus-summary-work-articles 1))))
;; Allow user to require confirmation before replying by mail to the
;; author of a news article (or mail message).
- (when (or
- (not (or (gnus-news-group-p gnus-newsgroup-name)
+ (when (or (not (or (gnus-news-group-p gnus-newsgroup-name)
gnus-confirm-treat-mail-like-news))
(not (cond ((stringp gnus-confirm-mail-reply-to-news)
(string-match gnus-confirm-mail-reply-to-news
gnus-newsgroup-name))
((functionp gnus-confirm-mail-reply-to-news)
- (funcall gnus-confirm-mail-reply-to-news gnus-newsgroup-name))
+ (funcall gnus-confirm-mail-reply-to-news
+ gnus-newsgroup-name))
(t gnus-confirm-mail-reply-to-news)))
(if (or wide very-wide)
t ;; Ignore gnus-confirm-mail-reply-to-news for wide and very
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 5 +++++
lisp/gnus-msg.el | 8 ++++----
lisp/message.el | 5 +++--
3 files changed, 12 insertions(+), 6 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project