/[emacs]/emacs/lisp/mail/rmailsum.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmailsum.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.126 by lektu, Tue Feb 4 13:14:00 2003 UTC revision 1.127 by jpw, Thu Feb 6 22:01:23 2003 UTC
# Line 42  Line 42 
42    
43  ;;;###autoload  ;;;###autoload
44  (defcustom rmail-summary-line-count-flag t  (defcustom rmail-summary-line-count-flag t
45    "*Non-nil if Rmail summary should show the number of lines in each message."    "*Non-nil means Rmail summary should show the number of lines in each message."
46    :type 'boolean    :type 'boolean
47    :group 'rmail-summary)    :group 'rmail-summary)
48    
# Line 513  messages, or backward if NUMBER is negat Line 513  messages, or backward if NUMBER is negat
513                                        non-del-msg-found)))                                        non-del-msg-found)))
514        (setq count (1- count))))        (setq count (1- count))))
515    (beginning-of-line)    (beginning-of-line)
516    (display-buffer rmail-view-buffer)    (display-buffer rmail-view-buffer))
   )  
517    
518  (defun rmail-summary-previous-msg (&optional number)  (defun rmail-summary-previous-msg (&optional number)
519      "Display previous non-deleted msg from rmail file.
520    With optional prefix argument NUMBER, moves backward this number of
521    non-deleted messages."
522    (interactive "p")    (interactive "p")
523    (rmail-summary-next-msg (- (if number number 1))))    (rmail-summary-next-msg (- (if number number 1))))
524    
525  (defun rmail-summary-next-labeled-message (n labels)  (defun rmail-summary-next-labeled-message (n labels)
526    "Show next message with LABEL.  Defaults to last labels used.    "Show next message with LABELS.  Defaults to last labels used.
527  With prefix argument N moves forward N messages with these labels."  With prefix argument N moves forward N messages with these labels."
528    (interactive "p\nsMove to next msg with labels: ")    (interactive "p\nsMove to next msg with labels: ")
529    (let (msg)    (let (msg)
# Line 532  With prefix argument N moves forward N m Line 534  With prefix argument N moves forward N m
534      (rmail-summary-goto-msg msg)))      (rmail-summary-goto-msg msg)))
535    
536  (defun rmail-summary-previous-labeled-message (n labels)  (defun rmail-summary-previous-labeled-message (n labels)
537    "Show previous message with LABEL.  Defaults to last labels used.    "Show previous message with LABELS.  Defaults to last labels used.
538  With prefix argument N moves backward N messages with these labels."  With prefix argument N moves backward N messages with these labels."
539    (interactive "p\nsMove to previous msg with labels: ")    (interactive "p\nsMove to previous msg with labels: ")
540    (let (msg)    (let (msg)
# Line 1405  Completion is performed over known label Line 1407  Completion is performed over known label
1407  ;;;; *** Rmail Summary Mailing Commands ***  ;;;; *** Rmail Summary Mailing Commands ***
1408    
1409  (defun rmail-summary-override-mail-send-and-exit ()  (defun rmail-summary-override-mail-send-and-exit ()
1410    "Replace bindings to 'mail-send-and-exit with 'rmail-summary-send-and-exit"    "Replace bindings to `mail-send-and-exit' with `rmail-summary-send-and-exit'."
1411    (use-local-map (copy-keymap (current-local-map)))    (use-local-map (copy-keymap (current-local-map)))
1412    (dolist (key (where-is-internal 'mail-send-and-exit))    (dolist (key (where-is-internal 'mail-send-and-exit))
1413      (define-key (current-local-map) key 'rmail-summary-send-and-exit)))      (define-key (current-local-map) key 'rmail-summary-send-and-exit)))
# Line 1475  see the documentation of `rmail-resend'. Line 1477  see the documentation of `rmail-resend'.
1477      (rmail-summary-override-mail-send-and-exit)))      (rmail-summary-override-mail-send-and-exit)))
1478    
1479  (defun rmail-summary-resend ()  (defun rmail-summary-resend ()
1480    "Resend current message using 'rmail-resend'."    "Resend current message using `rmail-resend'."
1481    (interactive)    (interactive)
1482    (save-excursion    (save-excursion
1483      (let ((window (get-buffer-window rmail-buffer)))      (let ((window (get-buffer-window rmail-buffer)))

Legend:
Removed from v.1.126  
changed lines
  Added in v.1.127

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26