From 79fd3fa80029b41d2abb840277e238a39b5b24d3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 14 Jun 2002 07:34:47 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6072d35..9391f1d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-06-14 Katsumi Yamaoka + + * message.el (message-beginning-of-line): Keep the region active + in XEmacs. Suggested by TAKAHASHI Kaoru . + 2002-06-13 Josh Huber * gnus-msg.el (gnus-summary-followup): Use g-s-handle-replysign. diff --git a/lisp/message.el b/lisp/message.el index 8492680..0f54a4e 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4931,6 +4931,9 @@ than 988 characters long, and if they are not, trim them until they are." (defun message-beginning-of-line (&optional n) "Move point to beginning of header value or to beginning of line." (interactive "p") + (let ((zrs 'zmacs-region-stays)) + (when (and (interactive-p) (boundp zrs)) + (set zrs t))) (if (message-point-in-header-p) (let* ((here (point)) (bol (progn (beginning-of-line n) (point))) -- 1.7.10.4