mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-summary-mouse-goto-message): New function.

Browse source 
(rmail-summary-mode-map): Bind it to Mouse-2.
This commit is contained in:
Richard M. Stallman 1997-08-04 01:42:50 +00:00
parent d1f9f44105
commit 4ab455e6c8
1 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/mail/rmailsum.el
View file

@ -809,6 +809,8 @@ Search, the `unseen' attribute is restored.")
nil
(setq rmail-summary-mode-map (make-keymap))
(suppress-keymap rmail-summary-mode-map)
(define-key rmail-summary-mode-map [mouse-2] 'rmail-summary-mouse-goto-message)
(define-key rmail-summary-mode-map "a" 'rmail-summary-add-label)
(define-key rmail-summary-mode-map "b" 'rmail-summary-bury)
(define-key rmail-summary-mode-map "c" 'rmail-summary-continue)
@ -994,15 +996,19 @@ Search, the `unseen' attribute is restored.")
(defvar rmail-summary-overlay nil)
(put 'rmail-summary-overlay 'permanent-local t)
;; Go to message N in the summary buffer which is current,
;; and in the corresponding Rmail buffer.
;; If N is nil, use the message corresponding to point in the summary
;; and move to that message in the Rmail buffer.
;; If NOWARN, don't say anything if N is out of range.
;; If SKIP-RMAIL, don't do anything to the Rmail buffer.
(defun rmail-summary-mouse-goto-message (event)
"Select the message whose summary line you click on."
(interactive "@e")
(goto-char (posn-point (event-end event)))
(rmail-summary-goto-msg))
(defun rmail-summary-goto-msg (&optional n nowarn skip-rmail)
"Go to message N in the summary buffer and the Rmail buffer.
If N is nil, use the message corresponding to point in the summary
and move to that message in the Rmail buffer.
If NOWARN, don't say anything if N is out of range.
If SKIP-RMAIL, don't do anything to the Rmail buffer."
(interactive "P")
(if (consp n) (setq n (prefix-numeric-value n)))
(if (eobp) (forward-line -1))