[gnus git] branch master updated: n0-17-318-g4ac43eb =1= * message.el (message-default-send-rename-function): Break out into its own function.

       via  4ac43ebfeac8f6d9481b2e504f7de0c304fdd260 (commit)
      from  f077de57e36ecb72690582bd68e845a7f1e4efcf (commit)


- Log -----------------------------------------------------------------
commit 4ac43ebfeac8f6d9481b2e504f7de0c304fdd260
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Sep 21 19:51:18 2011 +0200

    * message.el (message-default-send-rename-function): Break out into its own function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b07501e..0853db3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-09-21  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* message.el (message-default-send-rename-function): Break out into its
+	own function.
+
 	* ecomplete.el (ecomplete-display-matches): Revert patch since it
 	doesn't work under XEmacs.
 
diff --git a/lisp/message.el b/lisp/message.el
index 0183b87..2fc774f 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6402,6 +6402,13 @@ between beginning of field and beginning of line."
   ;; Rename the buffer.
   (if message-send-rename-function
       (funcall message-send-rename-function)
+    (message-default-send-rename-function))
+  ;; Push the current buffer onto the list.
+  (when message-max-buffers
+    (setq message-buffer-list
+	  (nconc message-buffer-list (list (current-buffer))))))
+
+(defun message-default-send-rename-function ()
     ;; Note: mail-abbrevs of XEmacs renames buffer name behind Gnus.
     (when (string-match
 	   "\\`\\*\\(sent \\|unsent \\)?\\(.+\\)\\*[^\\*]*\\|\\`mail to "
@@ -6426,10 +6433,6 @@ between beginning of field and beginning of line."
 		 (t "*sent mail*"))))
 	(unless (string-equal name (buffer-name))
 	  (rename-buffer name t)))))
-  ;; Push the current buffer onto the list.
-  (when message-max-buffers
-    (setq message-buffer-list
-	  (nconc message-buffer-list (list (current-buffer))))))
 
 (defun message-mail-user-agent ()
   (let ((mua (cond

-----------------------------------------------------------------------
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  |    3 +++
 lisp/message.el |   51 +++++++++++++++++++++++++++------------------------
 2 files changed, 30 insertions(+), 24 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