annotate lisp/mail/rmailsum.el @ 5514:8112b5b2651b

(rmail-summary-delete-forward): Fix regexp used for recognizing deleted message. (rmail-summary-output, rmail-summary-output-to-rmail-file): Use rmail-summary-delete-forward.
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 Jan 1994 13:57:29 +0000
parents 0a6c0e720ece
children 3824222fed2e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2233
fb0ed5a1d0f3 Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
1 ;;; rmailsum.el --- make summary buffers for the mail reader
2232
4f9d60f7de9d Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2164
diff changeset
2
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
3 ;; Copyright (C) 1985, 1993 Free Software Foundation, Inc.
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
4
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
5 ;; Maintainer: FSF
814
38b2499cb3e9 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
6 ;; Keywords: mail
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
7
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 ;; any later version.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; GNU General Public License for more details.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23
2232
4f9d60f7de9d Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2164
diff changeset
24 ;;; Commentary:
4f9d60f7de9d Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2164
diff changeset
25
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
26 ;; Extended by Bob Weiner of Motorola
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
27 ;; Provided all commands from rmail-mode in rmail-summary-mode and made key
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
28 ;; bindings in both modes wholly compatible.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
29
2232
4f9d60f7de9d Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2164
diff changeset
30 ;;; Code:
4f9d60f7de9d Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2164
diff changeset
31
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
32 ;; Entry points for making a summary buffer.
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
34 ;; Regenerate the contents of the summary
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
35 ;; using the same selection criterion as last time.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
36 ;; M-x revert-buffer in a summary buffer calls this function.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
37 (defun rmail-update-summary (&rest ignore)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
38 (apply (car rmail-summary-redo) (cdr rmail-summary-redo)))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 (defun rmail-summary ()
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 "Display a summary of all messages, one line per message."
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 (interactive)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
43 (rmail-new-summary "All" '(rmail-summary) nil))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 (defun rmail-summary-by-labels (labels)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 "Display a summary of all messages with one or more LABELS.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 LABELS should be a string containing the desired labels, separated by commas."
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 (interactive "sLabels to summarize by: ")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 (if (string= labels "")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 (setq labels (or rmail-last-multi-labels
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 (error "No label specified"))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 (setq rmail-last-multi-labels labels)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 (rmail-new-summary (concat "labels " labels)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
54 (list 'rmail-summary-by-labels labels)
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 'rmail-message-labels-p
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 (concat ", \\(" (mail-comma-list-regexp labels) "\\),")))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 (defun rmail-summary-by-recipients (recipients &optional primary-only)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 "Display a summary of all messages with the given RECIPIENTS.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 Normally checks the To, From and Cc fields of headers;
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 but if PRIMARY-ONLY is non-nil (prefix arg given),
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 only look in the To and From fields.
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
63 RECIPIENTS is a string of regexps separated by commas."
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 (interactive "sRecipients to summarize by: \nP")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 (rmail-new-summary
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 (concat "recipients " recipients)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
67 (list 'rmail-summary-by-recipients recipients primary-only)
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 'rmail-message-recipients-p
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 (mail-comma-list-regexp recipients) primary-only))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 (defun rmail-summary-by-regexp (regexp)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 "Display a summary of all messages according to regexp REGEXP.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 If the regular expression is found in the header of the message
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 \(including in the date and other lines, as well as the subject line),
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 Emacs will list the header line in the RMAIL-summary."
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 (interactive "sRegexp to summarize by: ")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 (if (string= regexp "")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 (setq regexp (or rmail-last-regexp
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
79 (error "No regexp specified."))))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 (setq rmail-last-regexp regexp)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 (rmail-new-summary (concat "regexp " regexp)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
82 (list 'rmail-summary-by-regexp regexp)
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 'rmail-message-regexp-p
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84 regexp))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
86 ;; rmail-summary-by-topic
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
87 ;; 1989 R.A. Schnitzler
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
88
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
89 (defun rmail-summary-by-topic (subject &optional whole-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
90 "Display a summary of all messages with the given SUBJECT.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
91 Normally checks the Subject field of headers;
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
92 but if WHOLE-MESSAGE is non-nil (prefix arg given),
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
93 look in the whole message.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
94 SUBJECT is a string of regexps separated by commas."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
95 (interactive "sTopics to summarize by: \nP")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
96 (rmail-new-summary
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
97 (concat "about " subject)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
98 (list 'rmail-summary-by-topic subject whole-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
99 'rmail-message-subject-p
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
100 (mail-comma-list-regexp subject) whole-message))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
101
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
102 (defun rmail-message-subject-p (msg subject &optional whole-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
103 (save-restriction
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
104 (goto-char (rmail-msgbeg msg))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
105 (search-forward "\n*** EOOH ***\n")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
106 (narrow-to-region
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
107 (point)
3349
31390246a7a2 (rmail-message-subject-p): Fix typo in string constant.
Richard M. Stallman <rms@gnu.org>
parents: 3198
diff changeset
108 (progn (search-forward (if whole-message "\^_" "\n\n")) (point)))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
109 (goto-char (point-min))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
110 (if whole-message (re-search-forward subject nil t)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
111 (string-match subject (or (mail-fetch-field "Subject") "")) )))
3443
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
112
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
113 (defun rmail-summary-by-senders (senders)
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
114 "Display a summary of all messages with the given SENDERS.
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
115 SENDERS is a string of names separated by commas."
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
116 (interactive "sSenders to summarize by: ")
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
117 (rmail-new-summary
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
118 (concat "senders " senders)
5507
0a6c0e720ece (rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents: 5370
diff changeset
119 (list 'rmail-summary-by-senders senders)
3443
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
120 'rmail-message-senders-p
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
121 (mail-comma-list-regexp senders)))
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
122
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
123 (defun rmail-message-senders-p (msg senders)
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
124 (save-restriction
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
125 (goto-char (rmail-msgbeg msg))
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
126 (search-forward "\n*** EOOH ***\n")
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
127 (narrow-to-region (point) (progn (search-forward "\n\n") (point)))
7a15b35366f8 (rmail-summary-by-senders): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3349
diff changeset
128 (string-match senders (or (mail-fetch-field "From") ""))))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
130 ;; General making of a summary buffer.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
131
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
132 (defvar rmail-summary-symbol-number 0)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
133
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
134 (defun rmail-new-summary (description redo-form function &rest args)
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 "Create a summary of selected messages.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 DESCRIPTION makes part of the mode line of the summary buffer.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 For each message, FUNCTION is applied to the message number and ARGS...
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 and if the result is non-nil, that message is included.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 nil for FUNCTION means all messages."
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 (message "Computing summary lines...")
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
141 (let (sumbuf mesg was-in-summary)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
142 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
143 ;; Go to the Rmail buffer.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
144 (if (eq major-mode 'rmail-summary-mode)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
145 (progn
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
146 (setq was-in-summary t)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
147 (set-buffer rmail-buffer)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
148 ;; Find its summary buffer, or make one.
3198
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
149 (setq sumbuf
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
150 (if (and rmail-summary-buffer
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
151 (buffer-name rmail-summary-buffer))
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
152 rmail-summary-buffer
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
153 (generate-new-buffer (concat (buffer-name) "-summary"))))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
154 (setq mesg rmail-current-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
155 ;; Filter the messages; make or get their summary lines.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
156 (let ((summary-msgs ())
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
157 (new-summary-line-count 0))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
158 (let ((msgnum 1)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
159 (buffer-read-only nil))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
160 (save-restriction
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
161 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
162 (widen)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
163 (goto-char (point-min))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
164 (while (>= rmail-total-messages msgnum)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
165 (if (or (null function)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
166 (apply function (cons msgnum args)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
167 (setq summary-msgs
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
168 (cons (cons msgnum (rmail-make-summary-line msgnum))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
169 summary-msgs)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
170 (setq msgnum (1+ msgnum)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
171 (setq summary-msgs (nreverse summary-msgs)))))
3198
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
172 ;; Temporarily, while summary buffer is unfinished,
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
173 ;; we "don't have" a summary.
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
174 (setq rmail-summary-buffer nil)
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
175 (save-excursion
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
176 (let ((rbuf (current-buffer))
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
177 (total rmail-total-messages))
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
178 (set-buffer sumbuf)
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
179 ;; Set up the summary buffer's contents.
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
180 (let ((buffer-read-only nil))
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
181 (erase-buffer)
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
182 (while summary-msgs
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
183 (princ (cdr (car summary-msgs)) sumbuf)
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
184 (setq summary-msgs (cdr summary-msgs)))
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
185 (goto-char (point-min)))
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
186 ;; Set up the rest of its state and local variables.
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
187 (setq buffer-read-only t)
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
188 (rmail-summary-mode)
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
189 (make-local-variable 'minor-mode-alist)
3466
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
190 (setq minor-mode-alist (list '(t (concat ": " description))))
3198
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
191 (setq rmail-buffer rbuf
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
192 rmail-summary-redo redo-form
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
193 rmail-total-messages total))))
18612999f80c (rmail-new-summary): Set rmail-summary-buffer
Richard M. Stallman <rms@gnu.org>
parents: 3100
diff changeset
194 (setq rmail-summary-buffer sumbuf))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
195 ;; Now display the summary buffer and go to the right place in it.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
196 (or was-in-summary
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
197 (pop-to-buffer sumbuf))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
198 (rmail-summary-goto-msg mesg t t)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
199 (message "Computing summary lines...done")))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
200
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
201 ;; Low levels of generating a summary.
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 (defun rmail-make-summary-line (msg)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 (let ((line (or (aref rmail-summary-vector (1- msg))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 (progn
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206 (setq new-summary-line-count
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207 (1+ new-summary-line-count))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 (if (zerop (% new-summary-line-count 10))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 (message "Computing summary lines...%d"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 new-summary-line-count))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 (rmail-make-summary-line-1 msg)))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212 ;; Fix up the part of the summary that says "deleted" or "unseen".
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 (aset line 4
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 (if (rmail-message-deleted-p msg) ?\D
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 (if (= ?0 (char-after (+ 3 (rmail-msgbeg msg))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 ?\- ?\ )))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 line))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 (defun rmail-make-summary-line-1 (msg)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 (goto-char (rmail-msgbeg msg))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 (let* ((lim (save-excursion (forward-line 2) (point)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 pos
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 (labels
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 (progn
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 (forward-char 3)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 (concat
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 ; (if (save-excursion (re-search-forward ",answered," lim t))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 ; "*" "")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 ; (if (save-excursion (re-search-forward ",filed," lim t))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 ; "!" "")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231 (if (progn (search-forward ",,") (eolp))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232 ""
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233 (concat "{"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 (buffer-substring (point)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
235 (progn (end-of-line) (point)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236 "} ")))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 (line
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
238 (progn
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239 (forward-line 1)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 (if (looking-at "Summary-line: ")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 (progn
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 (goto-char (match-end 0))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 (setq line
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 (buffer-substring (point)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 (progn (forward-line 1) (point)))))))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 ;; Obsolete status lines lacking a # should be flushed.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 (and line
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 (not (string-match "#" line))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 (progn
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 (delete-region (point)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 (progn (forward-line -1) (point)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 (setq line nil)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253 ;; If we didn't get a valid status line from the message,
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254 ;; make a new one and put it in the message.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 (or line
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256 (let* ((case-fold-search t)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 (next (rmail-msgend msg))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 (beg (if (progn (goto-char (rmail-msgbeg msg))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259 (search-forward "\n*** EOOH ***\n" next t))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 (point)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 (forward-line 1)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 (point)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 (end (progn (search-forward "\n\n" nil t) (point))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 (save-restriction
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 (narrow-to-region beg end)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266 (goto-char beg)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 (setq line (rmail-make-basic-summary-line)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 (goto-char (rmail-msgbeg msg))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 (forward-line 2)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 (insert "Summary-line: " line)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 (setq pos (string-match "#" line))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 (aset rmail-summary-vector (1- msg)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273 (concat (format "%4d " msg)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 (substring line 0 pos)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 labels
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 (substring line (1+ pos))))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 (defun rmail-make-basic-summary-line ()
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 (goto-char (point-min))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 (concat (save-excursion
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 (if (not (re-search-forward "^Date:" nil t))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 " "
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283 (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 (save-excursion (end-of-line) (point)) t)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 (format "%2d-%3s"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 (string-to-int (buffer-substring
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 (match-beginning 2)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 (match-end 2)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 (buffer-substring
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 (match-beginning 4) (match-end 4))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 ((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 (save-excursion (end-of-line) (point)) t)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293 (format "%2d-%3s"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 (string-to-int (buffer-substring
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295 (match-beginning 4)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 (match-end 4)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297 (buffer-substring
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298 (match-beginning 2) (match-end 2))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 (t "??????"))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 " "
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 (save-excursion
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 (if (not (re-search-forward "^From:[ \t]*" nil t))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 " "
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 (let* ((from (mail-strip-quoted-names
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 (buffer-substring
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 (1- (point))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 (progn (end-of-line)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 (skip-chars-backward " \t")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 (point)))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 len mch lo)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 (if (string-match (concat "^"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 (regexp-quote (user-login-name))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 "\\($\\|@\\)")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 from)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 (save-excursion
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 (goto-char (point-min))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 (if (not (re-search-forward "^To:[ \t]*" nil t))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 nil
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 (setq from
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 (concat "to: "
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 (mail-strip-quoted-names
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 (buffer-substring
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 (point)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 (progn (end-of-line)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 (skip-chars-backward " \t")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 (point)))))))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 (setq len (length from))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 (setq mch (string-match "[@%]" from))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 (format "%25s"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 (if (or (not mch) (<= len 25))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 (substring from (max 0 (- len 25)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 (substring from
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333 (setq lo (cond ((< (- mch 9) 0) 0)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 ((< len (+ mch 16))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 (- len 25))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 (t (- mch 9))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 (min len (+ lo 25))))))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 " #"
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 (if (re-search-forward "^Subject:" nil t)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 (progn (skip-chars-forward " \t")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 (buffer-substring (point)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 (progn (end-of-line)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 (point))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344 (re-search-forward "[\n][\n]+" nil t)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 (buffer-substring (point) (progn (end-of-line) (point))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 "\n"))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
347
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
348 ;; Simple motion in a summary buffer.
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 (defun rmail-summary-next-all (&optional number)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351 (interactive "p")
2164
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
352 (forward-line (if number number 1))
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
353 (display-buffer rmail-buffer))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 (defun rmail-summary-previous-all (&optional number)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356 (interactive "p")
2164
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
357 (forward-line (- (if number number 1)))
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
358 (display-buffer rmail-buffer))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 (defun rmail-summary-next-msg (&optional number)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
361 "Display next non-deleted msg from rmail file.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
362 With optional prefix argument NUMBER, moves forward this number of non-deleted
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
363 messages, or backward if NUMBER is negative."
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 (interactive "p")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 (forward-line 0)
3466
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
366 (and (> number 0) (end-of-line))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 (let ((count (if (< number 0) (- number) number))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368 (search (if (> number 0) 're-search-forward 're-search-backward))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
369 (non-del-msg-found nil))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
370 (while (and (> count 0) (setq non-del-msg-found
3509
a1ef317ceb18 (rmail-summary-next-msg): Fix number of dots in regexp.
Richard M. Stallman <rms@gnu.org>
parents: 3466
diff changeset
371 (or (funcall search "^....[^D]" nil t)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
372 non-del-msg-found)))
2164
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
373 (setq count (1- count))))
3466
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
374 (beginning-of-line)
2164
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
375 (display-buffer rmail-buffer))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 (defun rmail-summary-previous-msg (&optional number)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378 (interactive "p")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379 (rmail-summary-next-msg (- (if number number 1))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
381 (defun rmail-summary-next-labeled-message (n labels)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
382 "Show next message with LABEL. Defaults to last labels used.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
383 With prefix argument N moves forward N messages with these labels."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
384 (interactive "p\nsMove to next msg with labels: ")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
385 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
386 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
387 (rmail-next-labeled-message n labels)))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
389 (defun rmail-summary-previous-labeled-message (n labels)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
390 "Show previous message with LABEL. Defaults to last labels used.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
391 With prefix argument N moves backward N messages with these labels."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
392 (interactive "p\nsMove to previous msg with labels: ")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
393 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
394 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
395 (rmail-previous-labeled-message n labels)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
396
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
397 ;; Delete and undelete summary commands.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
398
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
399 (defun rmail-summary-delete-forward (&optional backward)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
400 "Delete this message and move to next nondeleted one.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
401 Deleted messages stay in the file until the \\[rmail-expunge] command is given.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
402 With prefix argument, delete and move backward."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
403 (interactive "P")
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
404 (let (end)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405 (rmail-summary-goto-msg)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
406 (pop-to-buffer rmail-buffer)
5370
45ed020959f1 (rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents: 5275
diff changeset
407 (rmail-delete-message)
45ed020959f1 (rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents: 5275
diff changeset
408 (let ((del-msg rmail-current-message))
45ed020959f1 (rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents: 5275
diff changeset
409 (pop-to-buffer rmail-summary-buffer)
45ed020959f1 (rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents: 5275
diff changeset
410 (rmail-summary-mark-deleted del-msg)
45ed020959f1 (rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents: 5275
diff changeset
411 (while (and (not (if backward (bobp) (eobp)))
5514
8112b5b2651b (rmail-summary-delete-forward): Fix regexp
Richard M. Stallman <rms@gnu.org>
parents: 5507
diff changeset
412 (save-excursion (beginning-of-line)
8112b5b2651b (rmail-summary-delete-forward): Fix regexp
Richard M. Stallman <rms@gnu.org>
parents: 5507
diff changeset
413 (looking-at " +[0-9]+D")))
5370
45ed020959f1 (rmail-summary-delete-forward): Move to next or prev msg
Richard M. Stallman <rms@gnu.org>
parents: 5275
diff changeset
414 (forward-line (if backward -1 1))))))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
416 (defun rmail-summary-delete-backward ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
417 "Delete this message and move to previous nondeleted one.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
418 Deleted messages stay in the file until the \\[rmail-expunge] command is given."
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 (interactive)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
420 (rmail-summary-delete-forward t))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
421
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
422 (defun rmail-summary-mark-deleted (&optional n undel)
3100
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
423 (and n (rmail-summary-goto-msg n t t))
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
424 (or (eobp)
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
425 (let ((buffer-read-only nil))
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
426 (skip-chars-forward " ")
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
427 (skip-chars-forward "[0-9]")
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
428 (if undel
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
429 (if (looking-at "D")
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
430 (progn (delete-char 1) (insert " ")))
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
431 (delete-char 1)
eb6ae6faff24 (rmail-summary-mark-deleted): Check for end of buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2233
diff changeset
432 (insert "D"))))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
433 (beginning-of-line))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
434
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
435 (defun rmail-summary-mark-undeleted (n)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
436 (rmail-summary-mark-deleted n t))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
437
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
438 (defun rmail-summary-deleted-p (&optional n)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
439 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
440 (and n (rmail-summary-goto-msg n nil t))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
441 (skip-chars-forward " ")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
442 (skip-chars-forward "[0-9]")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
443 (looking-at "D")))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
445 (defun rmail-summary-undelete (&optional arg)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
446 "Undelete current message.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
447 Optional prefix ARG means undelete ARG previous messages."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
448 (interactive "p")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
449 (if (/= arg 1)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
450 (rmail-summary-undelete-many arg)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
451 (let ((buffer-read-only nil))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
452 (end-of-line)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
453 (cond ((re-search-backward "\\(^ *[0-9]*\\)\\(D\\)" nil t)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
454 (replace-match "\\1 ")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
455 (rmail-summary-goto-msg)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
456 (pop-to-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
457 (and (rmail-message-deleted-p rmail-current-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
458 (rmail-undelete-previous-message))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
459 (pop-to-buffer rmail-summary-buffer))))))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
460
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
461 (defun rmail-summary-undelete-many (&optional n)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
462 "Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
463 (interactive "P")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
464 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
465 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
466 (let* ((init-msg (if n rmail-current-message rmail-total-messages))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
467 (rmail-current-message init-msg)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
468 (n (or n rmail-total-messages))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
469 (msgs-undeled 0))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
470 (while (and (> rmail-current-message 0)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
471 (< msgs-undeled n))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
472 (if (rmail-message-deleted-p rmail-current-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
473 (progn (rmail-set-attribute "deleted" nil)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
474 (setq msgs-undeled (1+ msgs-undeled))))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
475 (setq rmail-current-message (1- rmail-current-message)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
476 (set-buffer rmail-summary-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
477 (setq rmail-current-message init-msg msgs-undeled 0)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
478 (while (and (> rmail-current-message 0)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
479 (< msgs-undeled n))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
480 (if (rmail-summary-deleted-p rmail-current-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
481 (progn (rmail-summary-mark-undeleted rmail-current-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
482 (setq msgs-undeled (1+ msgs-undeled))))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
483 (setq rmail-current-message (1- rmail-current-message))))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
484 (rmail-summary-goto-msg)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
485
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
486 ;; Rmail Summary mode is suitable only for specially formatted data.
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
487 (put 'rmail-summary-mode 'mode-class 'special)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
488
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 (defun rmail-summary-mode ()
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
490 "Rmail Summary Mode is invoked from Rmail Mode by using \\<rmail-mode-map>\\[rmail-summary].
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
491 As commands are issued in the summary buffer, they are applied to the
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
492 corresponding mail messages in the rmail buffer.
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
494 All normal editing commands are turned off.
5121
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
495 Instead, nearly all the Rmail mode commands are available,
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
496 though many of them move only among the messages in the summary.
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
497
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
498 These additional commands exist:
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
499
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
500 \\[rmail-summary-undelete-many] Undelete all or prefix arg deleted messages.
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
501 \\[rmail-summary-wipe] Delete the summary and go to the Rmail buffer.
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502
5121
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
503 Commands for sorting the summary:
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
504
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
505 \\[rmail-summary-sort-by-date] Sort by date.
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
506 \\[rmail-summary-sort-by-subject] Sort by subject.
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
507 \\[rmail-summary-sort-by-author] Sort by author.
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
508 \\[rmail-summary-sort-by-recipient] Sort by recipient.
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
509 \\[rmail-summary-sort-by-correspondent] Sort by correspondent.
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
510 \\[rmail-summary-sort-by-lines] Sort by lines."
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511 (interactive)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 (kill-all-local-variables)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 (setq major-mode 'rmail-summary-mode)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 (setq mode-name "RMAIL Summary")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 (use-local-map rmail-summary-mode-map)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 (setq truncate-lines t)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 (setq buffer-read-only t)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 (set-syntax-table text-mode-syntax-table)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
519 (make-local-variable 'rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
520 (make-local-variable 'rmail-total-messages)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
521 (make-local-variable 'rmail-current-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
522 (setq rmail-current-message nil)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
523 (make-local-variable 'rmail-summary-redo)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
524 (setq rmail-summary-redo nil)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
525 (make-local-variable 'revert-buffer-function)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
526 (setq revert-buffer-function 'rmail-update-summary)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
527 (make-local-variable 'post-command-hook)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
528 (add-hook 'post-command-hook 'rmail-summary-rmail-update)
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 (run-hooks 'rmail-summary-mode-hook))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530
2164
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
531 ;; Show in Rmail the message described by the summary line that point is on,
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
532 ;; but only if the Rmail buffer is already visible.
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
533 ;; This is a post-command-hook in summary buffers.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
534 (defun rmail-summary-rmail-update ()
2164
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
535 (if (get-buffer-window rmail-buffer)
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
536 (let (buffer-read-only)
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
537 (save-excursion
5275
c2a5a99d89e8 (rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents: 5121
diff changeset
538 ;; If at end of buffer, pretend we are on the last text line.
c2a5a99d89e8 (rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents: 5121
diff changeset
539 (if (eobp)
c2a5a99d89e8 (rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents: 5121
diff changeset
540 (forward-line -1))
2164
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
541 (beginning-of-line)
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
542 (skip-chars-forward " ")
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
543 (let ((beg (point))
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
544 msg-num
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
545 (buf rmail-buffer))
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
546 (skip-chars-forward "0-9")
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
547 (setq msg-num (string-to-int (buffer-substring beg (point))))
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
548 (or (eq rmail-current-message msg-num)
3461
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
549 (let (go-where window (owin (selected-window)))
2164
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
550 (setq rmail-current-message msg-num)
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
551 (if (= (following-char) ?-)
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
552 (progn
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
553 (delete-char 1)
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
554 (insert " ")))
6e276a32aef1 (rmail-summary-next-msg): Call display-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2077
diff changeset
555 (setq window (display-buffer rmail-buffer))
3461
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
556 ;; Using save-window-excursion caused the new value
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
557 ;; of point to get lost.
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
558 (unwind-protect
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
559 (progn
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
560 (select-window window)
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
561 (rmail-show-message msg-num))
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
562 (select-window owin)))))))))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
563
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
564 (defvar rmail-summary-mode-map nil)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
565
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
566 (if rmail-summary-mode-map
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
567 nil
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
568 (setq rmail-summary-mode-map (make-keymap))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
569 (suppress-keymap rmail-summary-mode-map)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
570 (define-key rmail-summary-mode-map "a" 'rmail-summary-add-label)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
571 (define-key rmail-summary-mode-map "c" 'rmail-summary-continue)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
572 (define-key rmail-summary-mode-map "d" 'rmail-summary-delete-forward)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
573 (define-key rmail-summary-mode-map "\C-d" 'rmail-summary-delete-backward)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
574 (define-key rmail-summary-mode-map "e" 'rmail-summary-edit-current-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
575 (define-key rmail-summary-mode-map "f" 'rmail-summary-forward)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
576 (define-key rmail-summary-mode-map "g" 'rmail-summary-get-new-mail)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
577 (define-key rmail-summary-mode-map "h" 'rmail-summary)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
578 (define-key rmail-summary-mode-map "i" 'rmail-summary-input)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
579 (define-key rmail-summary-mode-map "j" 'rmail-summary-goto-msg)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
580 (define-key rmail-summary-mode-map "k" 'rmail-summary-kill-label)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
581 (define-key rmail-summary-mode-map "l" 'rmail-summary-by-labels)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
582 (define-key rmail-summary-mode-map "\e\C-h" 'rmail-summary)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
583 (define-key rmail-summary-mode-map "\e\C-l" 'rmail-summary-by-labels)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
584 (define-key rmail-summary-mode-map "\e\C-r" 'rmail-summary-by-recipients)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
585 (define-key rmail-summary-mode-map "\e\C-s" 'rmail-summary-by-regexp)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
586 (define-key rmail-summary-mode-map "\e\C-t" 'rmail-summary-by-topic)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
587 (define-key rmail-summary-mode-map "m" 'rmail-summary-mail)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
588 (define-key rmail-summary-mode-map "\M-m" 'rmail-summary-retry-failure)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
589 (define-key rmail-summary-mode-map "n" 'rmail-summary-next-msg)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
590 (define-key rmail-summary-mode-map "\en" 'rmail-summary-next-all)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
591 (define-key rmail-summary-mode-map "\e\C-n" 'rmail-summary-next-labeled-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
592 (define-key rmail-summary-mode-map "o" 'rmail-summary-output-to-rmail-file)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
593 (define-key rmail-summary-mode-map "\C-o" 'rmail-summary-output)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
594 (define-key rmail-summary-mode-map "p" 'rmail-summary-previous-msg)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
595 (define-key rmail-summary-mode-map "\ep" 'rmail-summary-previous-all)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
596 (define-key rmail-summary-mode-map "\e\C-p" 'rmail-summary-previous-labeled-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
597 (define-key rmail-summary-mode-map "q" 'rmail-summary-quit)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
598 (define-key rmail-summary-mode-map "r" 'rmail-summary-reply)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
599 (define-key rmail-summary-mode-map "s" 'rmail-summary-expunge-and-save)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
600 (define-key rmail-summary-mode-map "\es" 'rmail-summary-search)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
601 (define-key rmail-summary-mode-map "t" 'rmail-summary-toggle-header)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
602 (define-key rmail-summary-mode-map "u" 'rmail-summary-undelete)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
603 (define-key rmail-summary-mode-map "\M-u" 'rmail-summary-undelete-many)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
604 (define-key rmail-summary-mode-map "w" 'rmail-summary-wipe)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
605 (define-key rmail-summary-mode-map "x" 'rmail-summary-expunge)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
606 (define-key rmail-summary-mode-map "." 'rmail-summary-beginning-of-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
607 (define-key rmail-summary-mode-map "<" 'rmail-summary-first-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
608 (define-key rmail-summary-mode-map ">" 'rmail-summary-last-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
609 (define-key rmail-summary-mode-map " " 'rmail-summary-scroll-msg-up)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
610 (define-key rmail-summary-mode-map "\177" 'rmail-summary-scroll-msg-down)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
611 (define-key rmail-summary-mode-map "?" 'describe-mode)
3879
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
612 (define-key rmail-summary-mode-map "\C-c\C-s\C-d"
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
613 'rmail-summary-sort-by-date)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
614 (define-key rmail-summary-mode-map "\C-c\C-s\C-s"
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
615 'rmail-summary-sort-by-subject)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
616 (define-key rmail-summary-mode-map "\C-c\C-s\C-a"
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
617 'rmail-summary-sort-by-author)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
618 (define-key rmail-summary-mode-map "\C-c\C-s\C-r"
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
619 'rmail-summary-sort-by-recipient)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
620 (define-key rmail-summary-mode-map "\C-c\C-s\C-c"
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
621 'rmail-summary-sort-by-correspondent)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
622 (define-key rmail-summary-mode-map "\C-c\C-s\C-l"
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
623 'rmail-summary-sort-by-lines)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
624 )
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
625
3862
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
626 ;;; Menu bar bindings.
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
627
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
628 (define-key rmail-summary-mode-map [menu-bar] (make-sparse-keymap))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
629
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
630 (define-key rmail-summary-mode-map [menu-bar classify]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
631 (cons "Classify" (make-sparse-keymap "Classify")))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
632
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
633 (define-key rmail-summary-mode-map [menu-bar classify output-inbox]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
634 '("Output (inbox)" . rmail-summary-output))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
635
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
636 (define-key rmail-summary-mode-map [menu-bar classify output]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
637 '("Output (Rmail)" . rmail-summary-output-to-rmail-file))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
638
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
639 (define-key rmail-summary-mode-map [menu-bar classify kill-label]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
640 '("Kill Label" . rmail-summary-kill-label))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
641
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
642 (define-key rmail-summary-mode-map [menu-bar classify add-label]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
643 '("Add Label" . rmail-summary-add-label))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
644
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
645 (define-key rmail-summary-mode-map [menu-bar summary]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
646 (cons "Summary" (make-sparse-keymap "Summary")))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
647
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
648 (define-key rmail-summary-mode-map [menu-bar summary labels]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
649 '("By Labels" . rmail-summary-by-labels))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
650
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
651 (define-key rmail-summary-mode-map [menu-bar summary recipients]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
652 '("By Recipients" . rmail-summary-by-recipients))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
653
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
654 (define-key rmail-summary-mode-map [menu-bar summary topic]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
655 '("By Topic" . rmail-summary-by-topic))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
656
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
657 (define-key rmail-summary-mode-map [menu-bar summary regexp]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
658 '("By Regexp" . rmail-summary-by-regexp))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
659
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
660 (define-key rmail-summary-mode-map [menu-bar summary all]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
661 '("All" . rmail-summary))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
662
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
663 (define-key rmail-summary-mode-map [menu-bar mail]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
664 (cons "Mail" (make-sparse-keymap "Mail")))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
665
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
666 (define-key rmail-summary-mode-map [menu-bar mail continue]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
667 '("Continue" . rmail-summary-continue))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
668
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
669 (define-key rmail-summary-mode-map [menu-bar mail forward]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
670 '("Forward" . rmail-summary-forward))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
671
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
672 (define-key rmail-summary-mode-map [menu-bar mail retry]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
673 '("Retry" . rmail-summary-retry-failure))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
674
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
675 (define-key rmail-summary-mode-map [menu-bar mail reply]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
676 '("Reply" . rmail-summary-reply))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
677
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
678 (define-key rmail-summary-mode-map [menu-bar mail mail]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
679 '("Mail" . rmail-summary-mail))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
680
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
681 (define-key rmail-summary-mode-map [menu-bar delete]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
682 (cons "Delete" (make-sparse-keymap "Delete")))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
683
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
684 (define-key rmail-summary-mode-map [menu-bar delete expunge/save]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
685 '("Expunge/Save" . rmail-summary-expunge-and-save))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
686
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
687 (define-key rmail-summary-mode-map [menu-bar delete expunge]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
688 '("Expunge" . rmail-summary-expunge))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
689
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
690 (define-key rmail-summary-mode-map [menu-bar delete undelete]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
691 '("Undelete" . rmail-summary-undelete))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
692
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
693 (define-key rmail-summary-mode-map [menu-bar delete delete]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
694 '("Delete" . rmail-summary-delete-forward))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
695
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
696 (define-key rmail-summary-mode-map [menu-bar move]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
697 (cons "Move" (make-sparse-keymap "Move")))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
698
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
699 (define-key rmail-summary-mode-map [menu-bar move search-back]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
700 '("Search Back" . rmail-summary-search-backward))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
701
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
702 (define-key rmail-summary-mode-map [menu-bar move search]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
703 '("Search" . rmail-summary-search))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
704
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
705 (define-key rmail-summary-mode-map [menu-bar move previous]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
706 '("Previous Nondeleted" . rmail-summary-previous-msg))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
707
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
708 (define-key rmail-summary-mode-map [menu-bar move next]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
709 '("Next Nondeleted" . rmail-summary-next-msg))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
710
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
711 (define-key rmail-summary-mode-map [menu-bar move last]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
712 '("Last" . rmail-summary-last-message))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
713
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
714 (define-key rmail-summary-mode-map [menu-bar move first]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
715 '("First" . rmail-summary-first-message))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
716
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
717 (define-key rmail-summary-mode-map [menu-bar move previous]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
718 '("Previous" . rmail-summary-previous-all))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
719
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
720 (define-key rmail-summary-mode-map [menu-bar move next]
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
721 '("Next" . rmail-summary-next-all))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
722
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
723 (defun rmail-summary-goto-msg (&optional n nowarn skip-rmail)
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724 (interactive "P")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 (if (consp n) (setq n (prefix-numeric-value n)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
726 (if (eobp) (forward-line -1))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727 (beginning-of-line)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728 (let ((buf rmail-buffer)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 (cur (point))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 (curmsg (string-to-int
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731 (buffer-substring (point)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732 (min (point-max) (+ 5 (point)))))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733 (if (not n)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 (setq n curmsg)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
735 (if (< n 1)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
736 (progn (message "No preceding message")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
737 (setq n 1)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
738 (if (> n rmail-total-messages)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
739 (progn (message "No following message")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
740 (goto-char (point-max))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 (rmail-summary-goto-msg)))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742 (goto-char (point-min))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 (if (not (re-search-forward (concat "^ *" (int-to-string n)) nil t))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744 (progn (or nowarn (message "Message %d not found" n))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
745 (setq n curmsg)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 (goto-char cur))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 (beginning-of-line)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748 (skip-chars-forward " ")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749 (skip-chars-forward "0-9")
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 (save-excursion (if (= (following-char) ?-)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 (let ((buffer-read-only nil))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752 (delete-char 1)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 (insert " "))))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754 (beginning-of-line)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
755 (if skip-rmail
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
756 nil
5275
c2a5a99d89e8 (rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents: 5121
diff changeset
757 (let ((selwin (selected-window)))
c2a5a99d89e8 (rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents: 5121
diff changeset
758 (unwind-protect
c2a5a99d89e8 (rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents: 5121
diff changeset
759 (progn (pop-to-buffer buf)
c2a5a99d89e8 (rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents: 5121
diff changeset
760 (rmail-show-message n))
c2a5a99d89e8 (rmail-summary-goto-msg): Use unwind-protect to go
Richard M. Stallman <rms@gnu.org>
parents: 5121
diff changeset
761 (select-window selwin))))))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
762
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 (defun rmail-summary-scroll-msg-up (&optional dist)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764 "Scroll other window forward."
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 (interactive "P")
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
766 (scroll-other-window dist))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 (defun rmail-summary-scroll-msg-down (&optional dist)
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769 "Scroll other window backward."
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
770 (interactive "P")
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
771 (scroll-other-window
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
772 (cond ((eq dist '-) nil)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
773 ((null dist) '-)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
774 (t (- (prefix-numeric-value dist))))))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
775
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
776 (defun rmail-summary-beginning-of-message ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
777 "Show current message from the beginning."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
778 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
779 (pop-to-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
780 (beginning-of-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
781 (pop-to-buffer rmail-summary-buffer))
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 (defun rmail-summary-quit ()
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
784 "Quit out of Rmail and Rmail summary."
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 (interactive)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
786 (rmail-summary-wipe)
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 (rmail-quit))
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
789 (defun rmail-summary-wipe ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
790 "Kill and wipe away Rmail summary, remaining within Rmail."
130
ad8219ab7a97 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791 (interactive)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
792 (save-excursion (set-buffer rmail-buffer) (setq rmail-summary-buffer nil))
5121
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
793 (let ((local-rmail-buffer rmail-buffer))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
794 (kill-buffer (current-buffer))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
795 ;; Delete window if not only one.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
796 (if (not (eq (selected-window) (next-window nil 'no-minibuf)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
797 (delete-window))
5121
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
798 ;; Switch windows to the rmail buffer, or switch to it in this window.
864d3ca7f2b6 (rmail-summary-wipe): If rmail buffer is not visible,
Richard M. Stallman <rms@gnu.org>
parents: 5006
diff changeset
799 (pop-to-buffer local-rmail-buffer)))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
800
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
801 (defun rmail-summary-expunge ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
802 "Actually erase all deleted messages and recompute summary headers."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
803 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
804 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
805 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
806 (rmail-only-expunge))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
807 (rmail-update-summary))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
808
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
809 (defun rmail-summary-expunge-and-save ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
810 "Expunge and save RMAIL file."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
811 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
812 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
813 (set-buffer rmail-buffer)
3466
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
814 (rmail-only-expunge))
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
815 (rmail-update-summary)
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
816 (save-excursion
3461
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
817 (set-buffer rmail-buffer)
3466
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
818 (save-buffer)))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
819
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
820 (defun rmail-summary-get-new-mail ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
821 "Get new mail and recompute summary headers."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
822 (interactive)
3466
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
823 (let (msg)
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
824 (save-excursion
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
825 (set-buffer rmail-buffer)
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
826 (rmail-get-new-mail)
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
827 ;; Get the proper new message number.
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
828 (setq msg rmail-current-message))
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
829 ;; Make sure that message is displayed.
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
830 (rmail-summary-goto-msg msg)))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
831
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
832 (defun rmail-summary-input (filename)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
833 "Run Rmail on file FILENAME."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
834 (interactive "FRun rmail on RMAIL file: ")
3466
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
835 ;; We switch windows here, then display the other Rmail file there.
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
836 (pop-to-buffer rmail-buffer)
c8f52c44d9a4 (rmail-summary-expunge-and-save): Do save-buffer last.
Richard M. Stallman <rms@gnu.org>
parents: 3461
diff changeset
837 (rmail filename))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
838
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
839 (defun rmail-summary-first-message ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
840 "Show first message in Rmail file from summary buffer."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
841 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
842 (beginning-of-buffer))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
843
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
844 (defun rmail-summary-last-message ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
845 "Show last message in Rmail file from summary buffer."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
846 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
847 (end-of-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
848 (forward-line -1))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
849
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
850 (defvar rmail-summary-edit-map nil)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
851 (if rmail-summary-edit-map
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
852 nil
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
853 (setq rmail-summary-edit-map
4990
8f5a44af0114 (rmail-summary-edit-map): Inherit text-mode-map properly.
Richard M. Stallman <rms@gnu.org>
parents: 3879
diff changeset
854 (nconc (make-sparse-keymap) text-mode-map))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
855 (define-key rmail-summary-edit-map "\C-c\C-c" 'rmail-cease-edit)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
856 (define-key rmail-summary-edit-map "\C-c\C-]" 'rmail-abort-edit))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
857
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
858 (defun rmail-summary-edit-current-message ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
859 "Edit the contents of this message."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
860 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
861 (pop-to-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
862 (rmail-edit-current-message)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
863 (use-local-map rmail-summary-edit-map))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
864
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
865 (defun rmail-summary-cease-edit ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
866 "Finish editing message, then go back to Rmail summary buffer."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
867 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
868 (rmail-cease-edit)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
869 (pop-to-buffer rmail-summary-buffer))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
870
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
871 (defun rmail-summary-abort-edit ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
872 "Abort edit of current message; restore original contents.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
873 Go back to summary buffer."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
874 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
875 (rmail-abort-edit)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
876 (pop-to-buffer rmail-summary-buffer))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
877
3862
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
878 (defun rmail-summary-search-backward (regexp &optional n)
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
879 "Show message containing next match for REGEXP.
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
880 Prefix argument gives repeat count; negative argument means search
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
881 backwards (through earlier messages).
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
882 Interactively, empty argument means use same regexp used last time."
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
883 (interactive
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
884 (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
885 (prompt
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
886 (concat (if reversep "Reverse " "") "Rmail search (regexp): "))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
887 regexp)
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
888 (if rmail-search-last-regexp
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
889 (setq prompt (concat prompt
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
890 "(default "
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
891 rmail-search-last-regexp
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
892 ") ")))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
893 (setq regexp (read-string prompt))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
894 (cond ((not (equal regexp ""))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
895 (setq rmail-search-last-regexp regexp))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
896 ((not rmail-search-last-regexp)
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
897 (error "No previous Rmail search string")))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
898 (list rmail-search-last-regexp
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
899 (prefix-numeric-value current-prefix-arg))))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
900 ;; Don't use save-excursion because that prevents point from moving
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
901 ;; properly in the summary buffer.
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
902 (let ((buffer (current-buffer)))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
903 (unwind-protect
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
904 (progn
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
905 (set-buffer rmail-buffer)
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
906 (rmail-search regexp (- n)))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
907 (set-buffer buffer))))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
908
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
909 (defun rmail-summary-search (regexp &optional n)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
910 "Show message containing next match for REGEXP.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
911 Prefix argument gives repeat count; negative argument means search
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
912 backwards (through earlier messages).
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
913 Interactively, empty argument means use same regexp used last time."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
914 (interactive
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
915 (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
916 (prompt
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
917 (concat (if reversep "Reverse " "") "Rmail search (regexp): "))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
918 regexp)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
919 (if rmail-search-last-regexp
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
920 (setq prompt (concat prompt
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
921 "(default "
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
922 rmail-search-last-regexp
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
923 ") ")))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
924 (setq regexp (read-string prompt))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
925 (cond ((not (equal regexp ""))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
926 (setq rmail-search-last-regexp regexp))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
927 ((not rmail-search-last-regexp)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
928 (error "No previous Rmail search string")))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
929 (list rmail-search-last-regexp
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
930 (prefix-numeric-value current-prefix-arg))))
3862
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
931 ;; Don't use save-excursion because that prevents point from moving
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
932 ;; properly in the summary buffer.
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
933 (let ((buffer (current-buffer)))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
934 (unwind-protect
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
935 (progn
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
936 (set-buffer rmail-buffer)
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
937 (rmail-search regexp n))
d65e83bd1120 (rmail-summary-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3509
diff changeset
938 (set-buffer buffer))))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
939
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
940 (defun rmail-summary-toggle-header ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
941 "Show original message header if pruned header currently shown, or vice versa."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
942 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
943 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
944 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
945 (rmail-toggle-header)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
946
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
947 (defun rmail-summary-add-label (label)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
948 "Add LABEL to labels associated with current Rmail message.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
949 Completion is performed over known labels when reading."
3461
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
950 (interactive (list (save-excursion
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
951 (set-buffer rmail-buffer)
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
952 (rmail-read-label "Add label"))))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
953 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
954 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
955 (rmail-add-label label)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
956
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
957 (defun rmail-summary-kill-label (label)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
958 "Remove LABEL from labels associated with current Rmail message.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
959 Completion is performed over known labels when reading."
3461
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
960 (interactive (list (save-excursion
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
961 (set-buffer rmail-buffer)
1dec1449324d (rmail-summary-expunge-and-save):
Richard M. Stallman <rms@gnu.org>
parents: 3443
diff changeset
962 (rmail-read-label "Kill label"))))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
963 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
964 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
965 (rmail-set-label label nil)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
966
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
967 ;;;; *** Rmail Summary Mailing Commands ***
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
968
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
969 (defun rmail-summary-mail ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
970 "Send mail in another window.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
971 While composing the message, use \\[mail-yank-original] to yank the
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
972 original message into it."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
973 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
974 (mail-other-window nil nil nil nil nil rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
975 (use-local-map (copy-keymap (current-local-map)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
976 (define-key (current-local-map)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
977 "\C-c\C-c" 'rmail-summary-send-and-exit))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
978
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
979 (defun rmail-summary-continue ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
980 "Continue composing outgoing message previously being composed."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
981 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
982 (mail-other-window t))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
983
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
984 (defun rmail-summary-reply (just-sender)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
985 "Reply to the current message.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
986 Normally include CC: to all other recipients of original message;
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
987 prefix argument means ignore them.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
988 While composing the reply, use \\[mail-yank-original] to yank the
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
989 original message into it."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
990 (interactive "P")
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
991 (let (mailbuf)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
992 (save-window-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
993 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
994 (rmail-reply just-sender)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
995 (setq mailbuf (current-buffer)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
996 (pop-to-buffer mailbuf)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
997 (use-local-map (copy-keymap (current-local-map)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
998 (define-key (current-local-map)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
999 "\C-c\C-c" 'rmail-summary-send-and-exit)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1000
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1001 (defun rmail-summary-retry-failure ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1002 "Edit a mail message which is based on the contents of the current message.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1003 For a message rejected by the mail system, extract the interesting headers and
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1004 the body of the original message; otherwise copy the current message."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1005 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1006 (let (mailbuf)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1007 (save-window-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1008 (set-buffer rmail-buffer)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1009 (rmail-retry-failure)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1010 (setq mailbuf (current-buffer)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1011 (pop-to-buffer mailbuf)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1012 (use-local-map (copy-keymap (current-local-map)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1013 (define-key (current-local-map)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1014 "\C-c\C-c" 'rmail-summary-send-and-exit)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1015
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1016 (defun rmail-summary-send-and-exit ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1017 "Send mail reply and return to summary buffer."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1018 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1019 (mail-send-and-exit t))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1020
5006
356f6a751fdf (rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents: 4990
diff changeset
1021 (defun rmail-summary-forward (resend)
356f6a751fdf (rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents: 4990
diff changeset
1022 "Forward the current message to another user.
356f6a751fdf (rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents: 4990
diff changeset
1023 With prefix argument, \"resend\" the message instead of forwarding it;
356f6a751fdf (rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents: 4990
diff changeset
1024 see the documentation of `rmail-resend'."
356f6a751fdf (rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents: 4990
diff changeset
1025 (interactive "P")
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1026 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1027 (set-buffer rmail-buffer)
5006
356f6a751fdf (rmail-summary-forward): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents: 4990
diff changeset
1028 (rmail-forward resend)
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1029 (use-local-map (copy-keymap (current-local-map)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1030 (define-key (current-local-map)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1031 "\C-c\C-c" 'rmail-summary-send-and-exit)))
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1032
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1033 ;; Summary output commands.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1034
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1035 (defun rmail-summary-output-to-rmail-file ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1036 "Append the current message to an Rmail file named FILE-NAME.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1037 If the file does not exist, ask if it should be created.
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1038 If file is being visited, the message is appended to the Emacs
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1039 buffer visiting that file."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1040 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1041 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1042 (set-buffer rmail-buffer)
5507
0a6c0e720ece (rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents: 5370
diff changeset
1043 (let ((rmail-delete-after-output nil))
0a6c0e720ece (rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents: 5370
diff changeset
1044 (call-interactively 'rmail-output-to-rmail-file)))
0a6c0e720ece (rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents: 5370
diff changeset
1045 (if rmail-delete-after-output
5514
8112b5b2651b (rmail-summary-delete-forward): Fix regexp
Richard M. Stallman <rms@gnu.org>
parents: 5507
diff changeset
1046 (rmail-summary-delete-forward nil)))
2077
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1047
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1048 (defun rmail-summary-output ()
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1049 "Append this message to Unix mail file named FILE-NAME."
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1050 (interactive)
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1051 (save-excursion
6885836c2f98 (rmail-update-summary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 845
diff changeset
1052 (set-buffer rmail-buffer)
5507
0a6c0e720ece (rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents: 5370
diff changeset
1053 (let ((rmail-delete-after-output nil))
0a6c0e720ece (rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents: 5370
diff changeset
1054 (call-interactively 'rmail-output)))
0a6c0e720ece (rmail-summary-by-senders):
Richard M. Stallman <rms@gnu.org>
parents: 5370
diff changeset
1055 (if rmail-delete-after-output
5514
8112b5b2651b (rmail-summary-delete-forward): Fix regexp
Richard M. Stallman <rms@gnu.org>
parents: 5507
diff changeset
1056 (rmail-summary-delete-forward nil)))
3879
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1057
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1058 ;; Sorting messages in Rmail Summary buffer.
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1059
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1060 (defun rmail-summary-sort-by-date (reverse)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1061 "Sort messages of current Rmail summary by date.
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1062 If prefix argument REVERSE is non-nil, sort them in reverse order."
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1063 (interactive "P")
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1064 (rmail-sort-from-summary (function rmail-sort-by-date) reverse))
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1065
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1066 (defun rmail-summary-sort-by-subject (reverse)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1067 "Sort messages of current Rmail summary by subject.
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1068 If prefix argument REVERSE is non-nil, sort them in reverse order."
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1069 (interactive "P")
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1070 (rmail-sort-from-summary (function rmail-sort-by-subject) reverse))
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1071
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1072 (defun rmail-summary-sort-by-author (reverse)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1073 "Sort messages of current Rmail summary by author.
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1074 If prefix argument REVERSE is non-nil, sort them in reverse order."
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1075 (interactive "P")
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1076 (rmail-sort-from-summary (function rmail-sort-by-author) reverse))
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1077
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1078 (defun rmail-summary-sort-by-recipient (reverse)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1079 "Sort messages of current Rmail summary by recipient.
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1080 If prefix argument REVERSE is non-nil, sort them in reverse order."
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1081 (interactive "P")
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1082 (rmail-sort-from-summary (function rmail-sort-by-recipient) reverse))
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1083
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1084 (defun rmail-summary-sort-by-correspondent (reverse)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1085 "Sort messages of current Rmail summary by other correspondent.
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1086 If prefix argument REVERSE is non-nil, sort them in reverse order."
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1087 (interactive "P")
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1088 (rmail-sort-from-summary (function rmail-sort-by-correspondent) reverse))
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1089
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1090 (defun rmail-summary-sort-by-lines (reverse)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1091 "Sort messages of current Rmail summary by lines of the message.
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1092 If prefix argument REVERSE is non-nil, sort them in reverse order."
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1093 (interactive "P")
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1094 (rmail-sort-from-summary (function rmail-sort-by-lines) reverse))
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1095
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1096 (defun rmail-sort-from-summary (sortfun reverse)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1097 "Sort Rmail messages from Summary buffer and update it after sorting."
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1098 (require 'rmailsort)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1099 (pop-to-buffer rmail-buffer)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1100 (funcall sortfun reverse)
b8c99f30ca3f (rmail-summary-mode-map): Bind summary sort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3862
diff changeset
1101 (rmail-summary))
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 130
diff changeset
1102
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 130
diff changeset
1103 ;;; rmailsum.el ends here