/[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.124 by rms, Sat Feb 23 17:14:27 2002 UTC revision 1.124.4.1 by miles, Fri Apr 4 06:20:27 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 119  Emacs will list the header line in the R Line 119  Emacs will list the header line in the R
119  (defun rmail-summary-by-topic (subject &optional whole-message)  (defun rmail-summary-by-topic (subject &optional whole-message)
120    "Display a summary of all messages with the given SUBJECT.    "Display a summary of all messages with the given SUBJECT.
121  Normally checks the Subject field of headers;  Normally checks the Subject field of headers;
122  but if WHOLE-MESSAGE is non-nil (prefix arg given),  but if WHOLE-MESSAGE is non-nil (prefix arg given),
123   look in the whole message.   look in the whole message.
124  SUBJECT is a string of regexps separated by commas."  SUBJECT is a string of regexps separated by commas."
125    (interactive "sTopics to summarize by: \nP")    (interactive "sTopics to summarize by: \nP")
# Line 356  are used to exclude yourself as correspo Line 356  are used to exclude yourself as correspo
356    
357  Usually you don't have to set this variable, except if you collect mails  Usually you don't have to set this variable, except if you collect mails
358  sent by you under different user names.  sent by you under different user names.
359  Then it should be a regexp matching your mail adresses.  Then it should be a regexp matching your mail addresses.
360    
361  Setting this variable has an effect only before reading a mail."  Setting this variable has an effect only before reading a mail."
362    :type '(choice (const :tag "None" nil) regexp)    :type '(choice (const :tag "None" nil) regexp)
# Line 412  Setting this variable has an effect only Line 412  Setting this variable has an effect only
412                                 (skip-chars-backward " \t")                                 (skip-chars-backward " \t")
413                                 (point)))))                                 (point)))))
414                       len mch lo)                       len mch lo)
415                  (if (string-match                  (if (string-match
416                       (or rmail-user-mail-address-regexp                       (or rmail-user-mail-address-regexp
417                           (concat "^\\("                           (concat "^\\("
418                                   (regexp-quote (user-login-name))                                   (regexp-quote (user-login-name))
419                                   "\\($\\|@\\)\\|"                                   "\\($\\|@\\)\\|"
# 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)))
# Line 1499  starting with the current one.  Deleted Line 1501  starting with the current one.  Deleted
1501            (list (rmail-output-read-rmail-file-name)            (list (rmail-output-read-rmail-file-name)
1502                  (prefix-numeric-value current-prefix-arg))))                  (prefix-numeric-value current-prefix-arg))))
1503    (let ((i 0) prev-msg)    (let ((i 0) prev-msg)
1504      (while      (while
1505          (and (< i n)          (and (< i n)
1506               (progn (rmail-summary-goto-msg)               (progn (rmail-summary-goto-msg)
1507                      (not (eq prev-msg                      (not (eq prev-msg
1508                               (setq prev-msg                               (setq prev-msg
1509                                     (with-current-buffer rmail-buffer                                     (with-current-buffer rmail-buffer
1510                                       rmail-current-message))))))                                       rmail-current-message))))))
1511        (setq i (1+ i))        (setq i (1+ i))
1512        (with-current-buffer rmail-buffer        (with-current-buffer rmail-buffer
# Line 1559  The variables `rmail-secondary-file-dire Line 1561  The variables `rmail-secondary-file-dire
1561      (if files      (if files
1562          (progn          (progn
1563            (define-key rmail-summary-mode-map [menu-bar classify input-menu]            (define-key rmail-summary-mode-map [menu-bar classify input-menu]
1564              (cons "Input Rmail File"              (cons "Input Rmail File"
1565                    (rmail-list-to-menu "Input Rmail File"                    (rmail-list-to-menu "Input Rmail File"
1566                                        files                                        files
1567                                        'rmail-summary-input)))                                        'rmail-summary-input)))
1568            (define-key rmail-summary-mode-map [menu-bar classify output-menu]            (define-key rmail-summary-mode-map [menu-bar classify output-menu]
1569              (cons "Output Rmail File"              (cons "Output Rmail File"
1570                    (rmail-list-to-menu "Output Rmail File"                    (rmail-list-to-menu "Output Rmail File"
1571                                        files                                        files
1572                                        'rmail-summary-output-to-rmail-file))))                                        'rmail-summary-output-to-rmail-file))))
1573        (define-key rmail-summary-mode-map [menu-bar classify input-menu]        (define-key rmail-summary-mode-map [menu-bar classify input-menu]

Legend:
Removed from v.1.124  
changed lines
  Added in v.1.124.4.1

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