[gnus git] branch master updated: m0-7-226-g59ae8df =1= gnus-util.el (gnus-message-with-timestamp-1): Add a major-mode for the *Messages* buffer

       via  59ae8dfb4567422b3f35baf4fb00c5c57120e244 (commit)
      from  18fe299aa15136bb2706d901e2d4c8393240143b (commit)


- Log -----------------------------------------------------------------
commit 59ae8dfb4567422b3f35baf4fb00c5c57120e244
Author: Glenn Morris <[email protected]>
Date:   Tue Sep 17 08:21:29 2013 +0000

    gnus-util.el (gnus-message-with-timestamp-1): Add a major-mode for the *Messages* buffer

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 70c133a..d8b0a8f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-17  Glenn Morris  <[email protected]>
+
+	* gnus-util.el (gnus-message-with-timestamp-1):
+	Use `messages-buffer' function if available.  Ignore read-only.
+
 2013-09-16  Katsumi Yamaoka  <[email protected]>
 
 	* message.el (message-expand-group, message-completion-in-region):
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 1d2ab2d..4f63f4b 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -514,11 +514,14 @@ but also to the ones displayed in the echo area."
 			     (> message-log-max 0)
 			     (/= (length str) 0))
 		    (setq time (current-time))
-		    (with-current-buffer (get-buffer-create "*Messages*")
+		    (with-current-buffer (if (fboundp 'messages-buffer)
+					     (messages-buffer)
+					   (get-buffer-create "*Messages*"))
 		      (goto-char (point-max))
+		      (let ((inhibit-read-only t))
 		      (insert ,timestamp str "\n")
 		      (forward-line (- message-log-max))
-		      (delete-region (point-min) (point))
+			(delete-region (point-min) (point)))
 		      (goto-char (point-max))))
 		  str)
 		 (gnus-add-timestamp-to-message

-----------------------------------------------------------------------
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-util.el |   11 +++++++----
 2 files changed, 12 insertions(+), 4 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