From 59ae8dfb4567422b3f35baf4fb00c5c57120e244 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 17 Sep 2013 08:21:29 +0000 Subject: [PATCH] gnus-util.el (gnus-message-with-timestamp-1): Add a major-mode for the *Messages* buffer --- lisp/ChangeLog | 5 +++++ lisp/gnus-util.el | 11 +++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 70c133ad0..d8b0a8fce 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-09-17 Glenn Morris + + * gnus-util.el (gnus-message-with-timestamp-1): + Use `messages-buffer' function if available. Ignore read-only. + 2013-09-16 Katsumi Yamaoka * message.el (message-expand-group, message-completion-in-region): diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 1d2ab2da2..4f63f4bdb 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)) - (insert ,timestamp str "\n") - (forward-line (- message-log-max)) - (delete-region (point-min) (point)) + (let ((inhibit-read-only t)) + (insert ,timestamp str "\n") + (forward-line (- message-log-max)) + (delete-region (point-min) (point))) (goto-char (point-max)))) str) (gnus-add-timestamp-to-message -- 2.34.1