annotate lisp/mail/rmail.el @ 4403:2d6328c324cd

(dun-endgame-question, tcom, tloc): Use (random N) instead of combination of %, abs and random.
author Paul Eggert <eggert@twinsun.com>
date Sun, 01 Aug 1993 20:50:07 +0000
parents 505fb5222dea
children acb5dda629d7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 621
diff changeset
1 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 621
diff changeset
2
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
3 ;; Copyright (C) 1985, 1986, 1987, 1988, 1993 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 830
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: 813
diff changeset
6 ;; Keywords: mail
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
7
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
9
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
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)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
13 ;; any later version.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
14
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
19
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
23
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
24 ;;; Code:
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
25
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
26 ;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
27 ;; New features include attribute and keyword support, message
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
28 ;; selection by dispatch table, summary by attributes and keywords,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
29 ;; expunging by dispatch table, sticky options for file commands.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
30
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
31 ;; Extended by Bob Weiner of Motorola
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
32 ;; New features include: rmail and rmail-summary buffers remain
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
33 ;; synchronized and key bindings basically operate the same way in both
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
34 ;; buffers, summary by topic or by regular expression, rmail-reply-prefix
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
35 ;; variable, and a bury rmail buffer (wipe) command.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
36 ;;
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
37
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
38 (require 'mail-utils)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
39
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
40 ;; For Emacs V18 compatibility
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
41 (and (not (fboundp 'user-original-login-name))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
42 (fboundp 'user-real-login-name)
2571
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2423
diff changeset
43 (defalias 'user-original-login-name 'user-real-login-name))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
44 (and (not (fboundp 'buffer-disable-undo))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
45 (fboundp 'buffer-flush-undo)
2571
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2423
diff changeset
46 (defalias 'buffer-disable-undo 'buffer-flush-undo))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
47
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
48 ; These variables now declared in paths.el.
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
49 ;(defvar rmail-spool-directory "/usr/spool/mail/"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
50 ; "This is the name of the directory used by the system mailer for\n\
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
51 ;delivering new mail. It's name should end with a slash.")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
52 ;(defvar rmail-file-name
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
53 ; (expand-file-name "~/RMAIL")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
54 ; "")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
55
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
56 ;;;###autoload
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
57 (defvar rmail-dont-reply-to-names nil "\
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
58 *A regexp specifying names to prune of reply to messages.
3931
565b67d1a9f9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3877
diff changeset
59 A value of nil means exclude your own name only.")
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
60
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
61 ;;;###autoload
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
62 (defvar rmail-default-dont-reply-to-names "info-" "\
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
63 A regular expression specifying part of the value of the default value of
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
64 the variable `rmail-dont-reply-to-names', for when the user does not set
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
65 `rmail-dont-reply-to-names' explicitly. (The other part of the default
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
66 value is the user's name.)
3931
565b67d1a9f9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3877
diff changeset
67 It is useful to set this variable in the site customization file.")
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
68
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
69 ;;;###autoload
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
70 (defvar rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^message-id:\\|^summary-line:" "\
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
71 *Gubbish headers one would rather not see.")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
72
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
73 ;;;###autoload
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
74 (defvar rmail-delete-after-output nil "\
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
75 *Non-nil means automatically delete a message that is copied to a file.")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
76
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
77 ;;;###autoload
3631
0c063224b5d2 (rmail-primary-inbox-list): Use defvar, not defconst.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
78 (defvar rmail-primary-inbox-list nil "\
2423
5dd3b7338f71 (rmail): Don't use mbox as inbox by default.
Richard M. Stallman <rms@gnu.org>
parents: 2076
diff changeset
79 *List of files which are inboxes for user's primary mail file `~/RMAIL'.
5dd3b7338f71 (rmail): Don't use mbox as inbox by default.
Richard M. Stallman <rms@gnu.org>
parents: 2076
diff changeset
80 `nil' means the default, which is (\"/usr/spool/mail/$USER\")
5dd3b7338f71 (rmail): Don't use mbox as inbox by default.
Richard M. Stallman <rms@gnu.org>
parents: 2076
diff changeset
81 \(the name varies depending on the operating system,
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
82 and the value of the environment variable MAIL overrides it).")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
83
4108
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
84 ;;;###autoload
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
85 (defvar rmail-mail-new-frame nil
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
86 "*Non-nil means Rmail makes a new frame for composing outgoing mail.")
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
87
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
88 ;; These may be altered by site-init.el to match the format of mmdf files
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
89 ;; delimiting used on a given host (delim1 and delim2 from the config
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
90 ;; files).
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
91
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
92 (defvar mmdf-delim1 "^\001\001\001\001\n"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
93 "Regexp marking the start of an mmdf message")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
94 (defvar mmdf-delim2 "^\001\001\001\001\n"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
95 "Regexp marking the end of an mmdf message")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
96
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
97 (defvar rmail-message-filter nil
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
98 "If non nil, is a filter function for new headers in RMAIL.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
99 Called with region narrowed to unformatted header.")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
100
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
101 (defvar rmail-reply-prefix "Re: "
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
102 "String to prepend to Subject line when replying to a message.")
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
103
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
104 (defvar rmail-mode-map nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
105
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
106 (defvar rmail-inbox-list nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
107 (defvar rmail-keywords nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
108
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
109 ;; Message counters and markers. Deleted flags.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
110
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
111 (defvar rmail-current-message nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
112 (defvar rmail-total-messages nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
113 (defvar rmail-message-vector nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
114 (defvar rmail-deleted-vector nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
115
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
116 ;; These are used by autoloaded rmail-summary.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
117
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
118 (defvar rmail-summary-buffer nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
119 (defvar rmail-summary-vector nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
120
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
121 ;; `Sticky' default variables.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
122
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
123 ;; Last individual label specified to a or k.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
124 (defvar rmail-last-label nil)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
125 ;; Last set of values specified to C-M-n, C-M-p, C-M-s or C-M-l.
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
126 (defvar rmail-last-multi-labels nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
127 (defvar rmail-last-file nil)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
128 (defvar rmail-last-regexp nil)
4263
7c7fa71cfd6e (rmail-last-rmail-file): Initialize to a file name.
Richard M. Stallman <rms@gnu.org>
parents: 4108
diff changeset
129 (defvar rmail-last-rmail-file (expand-file-name "~/XMAIL"))
617
cde1f15848c6 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
130
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 617
diff changeset
131 ;;; Regexp matching the delimiter of messages in UNIX mail format
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 617
diff changeset
132 ;;; (UNIX From lines), minus the initial ^. Note that if you change
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 617
diff changeset
133 ;;; this expression, you must change the code in rmail-nuke-pinhead-header
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 617
diff changeset
134 ;;; that knows the exact ordering of the \\( \\) subexpressions.
617
cde1f15848c6 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
135 (defvar rmail-unix-mail-delimiter
1112
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
136 (let ((time-zone-regexp
1704
7e1897c2951b * rmail.el (rmail-unix-mail-delimiter): Not all time zone names
Jim Blandy <jimb@redhat.com>
parents: 1464
diff changeset
137 (concat "\\([A-Z]?[A-Z][A-Z][A-Z]\\( DST\\)?"
1112
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
138 "\\|[-+]?[0-9][0-9][0-9][0-9]"
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
139 "\\|"
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
140 "\\) *")))
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
141 (concat
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
142 "From "
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
143
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
144 ;; Username, perhaps with a quoted section that can contain spaces.
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
145 "\\("
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
146 "[^ \n]*"
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
147 "\\(\\|\".*\"[^ \n]*\\)"
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
148 "\\) ?"
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
149
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
150 ;; The time the message was sent.
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
151 "\\([^ \n]*\\) *" ; day of the week
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
152 "\\([^ ]*\\) *" ; month
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
153 "\\([0-9]*\\) *" ; day of month
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
154 "\\([0-9:]*\\) *" ; time of day
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
155
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
156 ;; Perhaps a time zone, specified by an abbreviation, or by a
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
157 ;; numeric offset.
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
158 time-zone-regexp
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
159
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
160 ;; The year.
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
161 " [0-9][0-9]\\([0-9]*\\) *"
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
162
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
163 ;; On some systems the time zone can appear after the year, too.
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
164 time-zone-regexp
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
165
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
166 ;; I'm not sure what this is.
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
167 "\\(remote from [^\n]*\\)?"
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
168
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
169 "\n"))
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
170 nil)
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
171
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
172 ;; Perform BODY in the summary buffer
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
173 ;; in such a way that its cursor is properly updated in its own window.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
174 (defmacro rmail-select-summary (&rest body)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
175 (` (progn (if (rmail-summary-displayed)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
176 (let ((window (selected-window)))
3462
2624c18df764 (rmail-select-summary): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents: 3083
diff changeset
177 (save-excursion
2624c18df764 (rmail-select-summary): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents: 3083
diff changeset
178 (unwind-protect
2624c18df764 (rmail-select-summary): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents: 3083
diff changeset
179 (progn
2624c18df764 (rmail-select-summary): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents: 3083
diff changeset
180 (pop-to-buffer rmail-summary-buffer)
2624c18df764 (rmail-select-summary): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents: 3083
diff changeset
181 (,@ body))
2624c18df764 (rmail-select-summary): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents: 3083
diff changeset
182 (select-window window))))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
183 (save-excursion
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
184 (set-buffer rmail-summary-buffer)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
185 (progn (,@ body))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
186 (rmail-maybe-display-summary))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
187
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
188 ;;;; *** Rmail Mode ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
189
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
190 ;;;###autoload
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
191 (defun rmail (&optional file-name-arg)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
192 "Read and edit incoming mail.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
193 Moves messages into file named by rmail-file-name (a babyl format file)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
194 and edits that file in RMAIL Mode.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
195 Type \\[describe-mode] once editing that file, for a list of RMAIL commands.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
196
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
197 May be called with filename as argument; then performs rmail editing on
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
198 that file, but does not copy any new mail into the file."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
199 (interactive (if current-prefix-arg
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
200 (list (read-file-name "Run rmail on RMAIL file: "
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
201 nil nil t))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
202 (or rmail-last-file
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
203 (setq rmail-last-file (expand-file-name "~/xmail")))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
204 (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
205 (existed (get-file-buffer file-name)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
206 ;; Like find-file, but in the case where a buffer existed
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
207 ;; and the file was reverted, recompute the message-data.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
208 (if (and existed (not (verify-visited-file-modtime existed)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
209 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
210 ;; Don't be confused by apparent local-variables spec
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
211 ;; in the last message in the RMAIL file.
1024
ceb4469d3cd7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 997
diff changeset
212 (let ((enable-local-variables nil))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
213 (find-file file-name))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
214 (if (and (verify-visited-file-modtime existed)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
215 (eq major-mode 'rmail-mode))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
216 (progn (rmail-forget-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
217 (rmail-set-message-counters))))
1024
ceb4469d3cd7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 997
diff changeset
218 (let ((enable-local-variables nil))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
219 (find-file file-name)))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
220 (if (eq major-mode 'rmail-edit-mode)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
221 (error "Exit Rmail Edit mode before getting new mail."))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
222 (if (and existed (> (buffer-size) 0))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
223 ;; Buffer not new and not empty; ensure in proper mode, but that's all.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
224 (or (eq major-mode 'rmail-mode)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
225 (rmail-mode-2))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
226 (rmail-mode-2)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
227 ;; Convert all or part to Babyl file if possible.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
228 (rmail-convert-file)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
229 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
230 (if (null rmail-inbox-list)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
231 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
232 (rmail-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
233 (rmail-show-message))))
1342
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
234 (let ((existing-unseen (rmail-first-unseen-message)))
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
235 (rmail-get-new-mail)
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
236 ;; Show the first unseen message, which might be from a previous session
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
237 ;; or might have been just read in by rmail-get-new-mail. Must
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
238 ;; determine already unseen messages first, as rmail-get-new-mail
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3540
diff changeset
239 ;; positions on the first new message, thus marking it as seen.
1342
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
240 (rmail-show-message existing-unseen))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
241
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
242 ;; Given the value of MAILPATH, return a list of inbox file names.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
243 ;; This is turned off because it is not clear that the user wants
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
244 ;; all these inboxes to feed into the primary rmail file.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
245 ; (defun rmail-convert-mailpath (string)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
246 ; (let (idx list)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
247 ; (while (setq idx (string-match "[%:]" string))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
248 ; (let ((this (substring string 0 idx)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
249 ; (setq string (substring string (1+ idx)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
250 ; (setq list (cons (if (string-match "%" this)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
251 ; (substring this 0 (string-match "%" this))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
252 ; this)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
253 ; list))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
254 ; list))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
255
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
256 ; I have checked that adding "-*- rmail -*-" to the BABYL OPTIONS line
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
257 ; will not cause emacs 18.55 problems.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
258
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
259 (defun rmail-convert-file ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
260 (let (convert)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
261 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
262 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
263 ;; If file doesn't start like a Babyl file,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
264 ;; convert it to one, by adding a header and converting each message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
265 (cond ((looking-at "BABYL OPTIONS:"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
266 ((looking-at "Version: 5\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
267 ;; Losing babyl file made by old version of Rmail.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
268 ;; Just fix the babyl file header; don't make a new one,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
269 ;; so we don't lose the Labels: file attribute, etc.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
270 (let ((buffer-read-only nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
271 (insert "BABYL OPTIONS: -*- rmail -*-\n")))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
272 (t
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
273 (setq convert t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
274 (rmail-insert-rmail-file-header)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
275 ;; If file was not a Babyl file or if there are
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
276 ;; Unix format messages added at the end,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
277 ;; convert file as necessary.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
278 (if (or convert
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
279 (progn (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
280 (search-backward "\^_")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
281 (forward-char 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
282 (looking-at "\n*From ")))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
283 (let ((buffer-read-only nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
284 (message "Converting to Babyl format...")
4332
9715c82333ab (rmail-convert-file): If file needs conversion, convert it all.
Richard M. Stallman <rms@gnu.org>
parents: 4263
diff changeset
285 ;;; If file needs conversion, convert it all.
9715c82333ab (rmail-convert-file): If file needs conversion, convert it all.
Richard M. Stallman <rms@gnu.org>
parents: 4263
diff changeset
286 ;;; (narrow-to-region (point) (point-max))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
287 (rmail-convert-to-babyl-format)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
288 (message "Converting to Babyl format...done")))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
289
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
290 ; I have checked that adding "-*- rmail -*-" to the BABYL OPTIONS line
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
291 ; will not cause emacs 18.55 problems.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
292
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
293 (defun rmail-insert-rmail-file-header ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
294 (let ((buffer-read-only nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
295 (insert "BABYL OPTIONS: -*- rmail -*-
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
296 Version: 5
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
297 Labels:
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
298 Note: This is the header of an rmail file.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
299 Note: If you are seeing it in rmail,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
300 Note: it means the file has no messages in it.\n\^_")))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
301
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
302 (if rmail-mode-map
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
303 nil
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
304 (setq rmail-mode-map (make-keymap))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
305 (suppress-keymap rmail-mode-map)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
306 (define-key rmail-mode-map "a" 'rmail-add-label)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
307 (define-key rmail-mode-map "b" 'rmail-bury)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
308 (define-key rmail-mode-map "c" 'rmail-continue)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
309 (define-key rmail-mode-map "d" 'rmail-delete-forward)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
310 (define-key rmail-mode-map "\C-d" 'rmail-delete-backward)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
311 (define-key rmail-mode-map "e" 'rmail-edit-current-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
312 (define-key rmail-mode-map "f" 'rmail-forward)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
313 (define-key rmail-mode-map "g" 'rmail-get-new-mail)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
314 (define-key rmail-mode-map "h" 'rmail-summary)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
315 (define-key rmail-mode-map "i" 'rmail-input)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
316 (define-key rmail-mode-map "j" 'rmail-show-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
317 (define-key rmail-mode-map "k" 'rmail-kill-label)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
318 (define-key rmail-mode-map "l" 'rmail-summary-by-labels)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
319 (define-key rmail-mode-map "\e\C-h" 'rmail-summary)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
320 (define-key rmail-mode-map "\e\C-l" 'rmail-summary-by-labels)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
321 (define-key rmail-mode-map "\e\C-r" 'rmail-summary-by-recipients)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
322 (define-key rmail-mode-map "\e\C-s" 'rmail-summary-by-regexp)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
323 (define-key rmail-mode-map "\e\C-t" 'rmail-summary-by-topic)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
324 (define-key rmail-mode-map "m" 'rmail-mail)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
325 (define-key rmail-mode-map "\em" 'rmail-retry-failure)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
326 (define-key rmail-mode-map "n" 'rmail-next-undeleted-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
327 (define-key rmail-mode-map "\en" 'rmail-next-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
328 (define-key rmail-mode-map "\e\C-n" 'rmail-next-labeled-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
329 (define-key rmail-mode-map "o" 'rmail-output-to-rmail-file)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
330 (define-key rmail-mode-map "\C-o" 'rmail-output)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
331 (define-key rmail-mode-map "p" 'rmail-previous-undeleted-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
332 (define-key rmail-mode-map "\ep" 'rmail-previous-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
333 (define-key rmail-mode-map "\e\C-p" 'rmail-previous-labeled-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
334 (define-key rmail-mode-map "q" 'rmail-quit)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
335 (define-key rmail-mode-map "r" 'rmail-reply)
1464
7f25b15a6809 (rmail-mode-map): Delete binding of M-r (use global one).
Richard M. Stallman <rms@gnu.org>
parents: 1382
diff changeset
336 ;; I find I can't live without the default M-r command -- rms.
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
337 ;; (define-key rmail-mode-map "\er" 'rmail-search-backwards)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
338 (define-key rmail-mode-map "s" 'rmail-expunge-and-save)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
339 (define-key rmail-mode-map "\es" 'rmail-search)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
340 (define-key rmail-mode-map "t" 'rmail-toggle-header)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
341 (define-key rmail-mode-map "u" 'rmail-undelete-previous-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
342 (define-key rmail-mode-map "w" 'rmail-edit-current-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
343 (define-key rmail-mode-map "x" 'rmail-expunge)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
344 (define-key rmail-mode-map "." 'rmail-beginning-of-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
345 (define-key rmail-mode-map "<" 'rmail-first-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
346 (define-key rmail-mode-map ">" 'rmail-last-message)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
347 (define-key rmail-mode-map " " 'scroll-up)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
348 (define-key rmail-mode-map "\177" 'scroll-down)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
349 (define-key rmail-mode-map "?" 'describe-mode)
3877
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
350 (define-key rmail-mode-map "\C-c\C-s\C-d" 'rmail-sort-by-date)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
351 (define-key rmail-mode-map "\C-c\C-s\C-s" 'rmail-sort-by-subject)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
352 (define-key rmail-mode-map "\C-c\C-s\C-a" 'rmail-sort-by-author)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
353 (define-key rmail-mode-map "\C-c\C-s\C-r" 'rmail-sort-by-recipient)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
354 (define-key rmail-mode-map "\C-c\C-s\C-c" 'rmail-sort-by-correspondent)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
355 (define-key rmail-mode-map "\C-c\C-s\C-l" 'rmail-sort-by-lines)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
356 )
3863
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
357
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
358 (define-key rmail-mode-map [menu-bar] (make-sparse-keymap))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
359
3863
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
360 (define-key rmail-mode-map [menu-bar classify]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
361 (cons "Classify" (make-sparse-keymap "Classify")))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
362
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
363 (define-key rmail-mode-map [menu-bar classify output-inbox]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
364 '("Output (inbox)" . rmail-output))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
365
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
366 (define-key rmail-mode-map [menu-bar classify output]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
367 '("Output (Rmail)" . rmail-output-to-rmail-file))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
368
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
369 (define-key rmail-mode-map [menu-bar classify kill-label]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
370 '("Kill Label" . rmail-kill-label))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
371
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
372 (define-key rmail-mode-map [menu-bar classify add-label]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
373 '("Add Label" . rmail-add-label))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
374
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
375 (define-key rmail-mode-map [menu-bar summary]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
376 (cons "Summary" (make-sparse-keymap "Summary")))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
377
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
378 (define-key rmail-mode-map [menu-bar summary labels]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
379 '("By Labels" . rmail-summary-by-labels))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
380
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
381 (define-key rmail-mode-map [menu-bar summary recipients]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
382 '("By Recipients" . rmail-summary-by-recipients))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
383
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
384 (define-key rmail-mode-map [menu-bar summary topic]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
385 '("By Topic" . rmail-summary-by-topic))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
386
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
387 (define-key rmail-mode-map [menu-bar summary regexp]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
388 '("By Regexp" . rmail-summary-by-regexp))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
389
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
390 (define-key rmail-mode-map [menu-bar summary all]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
391 '("All" . rmail-summary))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
392
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
393 (define-key rmail-mode-map [menu-bar mail]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
394 (cons "Mail" (make-sparse-keymap "Mail")))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
395
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
396 (define-key rmail-mode-map [menu-bar mail continue]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
397 '("Continue" . rmail-continue))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
398
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
399 (define-key rmail-mode-map [menu-bar mail forward]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
400 '("Forward" . rmail-forward))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
401
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
402 (define-key rmail-mode-map [menu-bar mail retry]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
403 '("Retry" . rmail-retry-failure))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
404
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
405 (define-key rmail-mode-map [menu-bar mail reply]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
406 '("Reply" . rmail-reply))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
407
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
408 (define-key rmail-mode-map [menu-bar mail mail]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
409 '("Mail" . rmail-mail))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
410
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
411 (define-key rmail-mode-map [menu-bar delete]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
412 (cons "Delete" (make-sparse-keymap "Delete")))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
413
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
414 (define-key rmail-mode-map [menu-bar delete expunge/save]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
415 '("Expunge/Save" . rmail-expunge-and-save))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
416
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
417 (define-key rmail-mode-map [menu-bar delete expunge]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
418 '("Expunge" . rmail-expunge))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
419
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
420 (define-key rmail-mode-map [menu-bar delete undelete]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
421 '("Undelete" . rmail-undelete-previous-message))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
422
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
423 (define-key rmail-mode-map [menu-bar delete delete]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
424 '("Delete" . rmail-delete-forward))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
425
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
426 (define-key rmail-mode-map [menu-bar move]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
427 (cons "Move" (make-sparse-keymap "Move")))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
428
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
429 (define-key rmail-mode-map [menu-bar move search-back]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
430 '("Search Back" . rmail-search-backward))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
431
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
432 (define-key rmail-mode-map [menu-bar move search]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
433 '("Search" . rmail-search))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
434
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
435 (define-key rmail-mode-map [menu-bar move previous]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
436 '("Previous Nondeleted" . rmail-previous-undeleted-message))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
437
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
438 (define-key rmail-mode-map [menu-bar move next]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
439 '("Next Nondeleted" . rmail-next-undeleted-message))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
440
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
441 (define-key rmail-mode-map [menu-bar move last]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
442 '("Last" . rmail-last-message))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
443
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
444 (define-key rmail-mode-map [menu-bar move first]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
445 '("First" . rmail-first-message))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
446
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
447 (define-key rmail-mode-map [menu-bar move previous]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
448 '("Previous" . rmail-previous-message))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
449
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
450 (define-key rmail-mode-map [menu-bar move next]
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
451 '("Next" . rmail-next-message))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
452
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
453 ;; Rmail mode is suitable only for specially formatted data.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
454 (put 'rmail-mode 'mode-class 'special)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
455
1382
9b210c7d6c23 * rmail.el (rmail-mode): Make this autoload; we might find a file
Jim Blandy <jimb@redhat.com>
parents: 1372
diff changeset
456 ;;;###autoload
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
457 (defun rmail-mode ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
458 "Rmail Mode is used by \\<rmail-mode-map>\\[rmail] for editing Rmail files.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
459 All normal editing commands are turned off.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
460 Instead, these commands are available:
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
461
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
462 \\[rmail-beginning-of-message] Move point to front of this message (same as \\[beginning-of-buffer]).
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
463 \\[scroll-up] Scroll to next screen of this message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
464 \\[scroll-down] Scroll to previous screen of this message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
465 \\[rmail-next-undeleted-message] Move to Next non-deleted message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
466 \\[rmail-previous-undeleted-message] Move to Previous non-deleted message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
467 \\[rmail-next-message] Move to Next message whether deleted or not.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
468 \\[rmail-previous-message] Move to Previous message whether deleted or not.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
469 \\[rmail-first-message] Move to the first message in Rmail file.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
470 \\[rmail-last-message] Move to the last message in Rmail file.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
471 \\[rmail-show-message] Jump to message specified by numeric position in file.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
472 \\[rmail-search] Search for string and show message it is found in.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
473 \\[rmail-delete-forward] Delete this message, move to next nondeleted.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
474 \\[rmail-delete-backward] Delete this message, move to previous nondeleted.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
475 \\[rmail-undelete-previous-message] Undelete message. Tries current message, then earlier messages
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
476 till a deleted message is found.
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
477 \\[rmail-edit-current-message] Edit the current message. \\[rmail-cease-edit] to return to Rmail.
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
478 \\[rmail-expunge] Expunge deleted messages.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
479 \\[rmail-expunge-and-save] Expunge and save the file.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
480 \\[rmail-quit] Quit Rmail: expunge, save, then switch to another buffer.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
481 \\[save-buffer] Save without expunging.
2423
5dd3b7338f71 (rmail): Don't use mbox as inbox by default.
Richard M. Stallman <rms@gnu.org>
parents: 2076
diff changeset
482 \\[rmail-get-new-mail] Move new mail from system spool directory into this file.
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
483 \\[rmail-mail] Mail a message (same as \\[mail-other-window]).
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
484 \\[rmail-continue] Continue composing outgoing message started before.
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
485 \\[rmail-reply] Reply to this message. Like \\[rmail-mail] but initializes some fields.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
486 \\[rmail-retry-failure] Send this message again. Used on a mailer failure message.
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
487 \\[rmail-forward] Forward this message to another user.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
488 \\[rmail-output-to-rmail-file] Output this message to an Rmail file (append it).
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
489 \\[rmail-output] Output this message to a Unix-format mail file (append it).
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
490 \\[rmail-input] Input Rmail file. Run Rmail on that file.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
491 \\[rmail-add-label] Add label to message. It will be displayed in the mode line.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
492 \\[rmail-kill-label] Kill label. Remove a label from current message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
493 \\[rmail-next-labeled-message] Move to Next message with specified label
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
494 (label defaults to last one specified).
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
495 Standard labels: filed, unseen, answered, forwarded, deleted.
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
496 Any other label is present only if you add it with \\[rmail-add-label].
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
497 \\[rmail-previous-labeled-message] Move to Previous message with specified label
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
498 \\[rmail-summary] Show headers buffer, with a one line summary of each message.
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
499 \\[rmail-summary-by-labels] Summarize only messages with particular label(s).
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
500 \\[rmail-summary-by-recipients] Summarize only messages with particular recipient(s).
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
501 \\[rmail-summary-by-regexp] Summarize only messages with particular regexp(s).
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
502 \\[rmail-summary-by-topic] Summarize only messages with subject line regexp(s).
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
503 \\[rmail-toggle-header] Toggle display of complete header."
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
504 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
505 (rmail-mode-2)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
506 (rmail-set-message-counters)
3864
ee987f852b10 (rmail-mode): Move to the last message.
Richard M. Stallman <rms@gnu.org>
parents: 3863
diff changeset
507 (rmail-show-message rmail-total-messages))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
508
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
509 (defun rmail-mode-2 ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
510 (kill-all-local-variables)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
511 (rmail-mode-1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
512 (rmail-variables)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
513 (run-hooks 'rmail-mode-hook))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
514
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
515 (defun rmail-mode-1 ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
516 (setq major-mode 'rmail-mode)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
517 (setq mode-name "RMAIL")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
518 (setq buffer-read-only t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
519 ;; No need to auto save RMAIL files.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
520 (setq buffer-auto-save-file-name nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
521 (if (boundp 'mode-line-modified)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
522 (setq mode-line-modified "--- ")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
523 (setq mode-line-format
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
524 (cons "--- " (cdr (default-value 'mode-line-format)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
525 (use-local-map rmail-mode-map)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
526 (set-syntax-table text-mode-syntax-table)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
527 (setq local-abbrev-table text-mode-abbrev-table))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
528
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
529 (defun rmail-variables ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
530 (make-local-variable 'revert-buffer-function)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
531 (setq revert-buffer-function 'rmail-revert)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
532 (make-local-variable 'rmail-last-label)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
533 (make-local-variable 'rmail-last-regexp)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
534 (make-local-variable 'rmail-deleted-vector)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
535 (make-local-variable 'rmail-summary-buffer)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
536 (make-local-variable 'rmail-summary-vector)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
537 (make-local-variable 'rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
538 (make-local-variable 'rmail-total-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
539 (make-local-variable 'require-final-newline)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
540 (setq require-final-newline nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
541 (make-local-variable 'version-control)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
542 (setq version-control 'never)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
543 (make-local-variable 'file-precious-flag)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
544 (setq file-precious-flag t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
545 (make-local-variable 'rmail-message-vector)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
546 (make-local-variable 'rmail-last-file)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
547 (make-local-variable 'rmail-inbox-list)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
548 (setq rmail-inbox-list (rmail-parse-file-inboxes))
3540
c14c0f2954fd (rmail-variables): Default rmail-inbox-list here.
Richard M. Stallman <rms@gnu.org>
parents: 3484
diff changeset
549 ;; Provide default set of inboxes for primary mail file ~/RMAIL.
c14c0f2954fd (rmail-variables): Default rmail-inbox-list here.
Richard M. Stallman <rms@gnu.org>
parents: 3484
diff changeset
550 (and (null rmail-inbox-list)
4010
735b8dc6cdd2 (rmail-variables): Compare truename as well as given name
Richard M. Stallman <rms@gnu.org>
parents: 3931
diff changeset
551 (or (equal buffer-file-name (expand-file-name rmail-file-name))
735b8dc6cdd2 (rmail-variables): Compare truename as well as given name
Richard M. Stallman <rms@gnu.org>
parents: 3931
diff changeset
552 (equal buffer-file-truename (file-truename rmail-file-name)))
3540
c14c0f2954fd (rmail-variables): Default rmail-inbox-list here.
Richard M. Stallman <rms@gnu.org>
parents: 3484
diff changeset
553 (setq rmail-inbox-list
c14c0f2954fd (rmail-variables): Default rmail-inbox-list here.
Richard M. Stallman <rms@gnu.org>
parents: 3484
diff changeset
554 (or rmail-primary-inbox-list
c14c0f2954fd (rmail-variables): Default rmail-inbox-list here.
Richard M. Stallman <rms@gnu.org>
parents: 3484
diff changeset
555 (list (or (getenv "MAIL")
c14c0f2954fd (rmail-variables): Default rmail-inbox-list here.
Richard M. Stallman <rms@gnu.org>
parents: 3484
diff changeset
556 (concat rmail-spool-directory
c14c0f2954fd (rmail-variables): Default rmail-inbox-list here.
Richard M. Stallman <rms@gnu.org>
parents: 3484
diff changeset
557 (user-original-login-name)))))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
558 (make-local-variable 'rmail-keywords)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
559 ;; this gets generated as needed
280
e6f9ccb230ad *** empty log message ***
Michael I. Bushnell <mib@gnu.org>
parents: 270
diff changeset
560 (setq rmail-keywords nil))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
561
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
562 ;; Handle M-x revert-buffer done in an rmail-mode buffer.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
563 (defun rmail-revert (arg noconfirm)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
564 (let (revert-buffer-function)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
565 ;; Call our caller again, but this time it does the default thing.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
566 (if (revert-buffer arg noconfirm)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
567 ;; If the user said "yes", and we changed something,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
568 ;; reparse the messages.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
569 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
570 (rmail-convert-file)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
571 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
572 (rmail-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
573 (rmail-show-message)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
574
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
575 ;; Return a list of files from this buffer's Mail: option.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
576 ;; Does not assume that messages have been parsed.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
577 ;; Just returns nil if buffer does not look like Babyl format.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
578 (defun rmail-parse-file-inboxes ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
579 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
580 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
581 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
582 (goto-char 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
583 (cond ((looking-at "BABYL OPTIONS:")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
584 (search-forward "\n\^_" nil 'move)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
585 (narrow-to-region 1 (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
586 (goto-char 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
587 (if (search-forward "\nMail:" nil t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
588 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
589 (narrow-to-region (point) (progn (end-of-line) (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
590 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
591 (mail-parse-comma-list))))))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
592
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
593 (defun rmail-expunge-and-save ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
594 "Expunge and save RMAIL file."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
595 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
596 (rmail-expunge)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
597 (save-buffer))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
598
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
599 (defun rmail-quit ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
600 "Quit out of RMAIL."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
601 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
602 (rmail-expunge-and-save)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
603 ;; Don't switch to the summary buffer even if it was recently visible.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
604 (if rmail-summary-buffer
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
605 (bury-buffer rmail-summary-buffer))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
606 (let ((obuf (current-buffer)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
607 (switch-to-buffer (other-buffer))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
608 (bury-buffer obuf)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
609
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
610 ;;;###autoload
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
611 (defun rmail-input (filename)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
612 "Run Rmail on file FILENAME."
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
613 (interactive "FRun rmail on RMAIL file: ")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
614 (rmail filename))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
615
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
616
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
617 ;;;; *** Rmail input ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
618
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
619 ;; RLK feature not added in this version:
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
620 ;; argument specifies inbox file or files in various ways.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
621
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
622 (defun rmail-get-new-mail (&optional file-name)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
623 "Move any new mail from this RMAIL file's inbox files.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
624 The inbox files can be specified with the file's Mail: option. The
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
625 variable `rmail-primary-inbox-list' specifies the inboxes for your
2423
5dd3b7338f71 (rmail): Don't use mbox as inbox by default.
Richard M. Stallman <rms@gnu.org>
parents: 2076
diff changeset
626 primary RMAIL file if it has no Mail: option. By default, this is
5dd3b7338f71 (rmail): Don't use mbox as inbox by default.
Richard M. Stallman <rms@gnu.org>
parents: 2076
diff changeset
627 your /usr/spool/mail/$USER.
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
628
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
629 You can also specify the file to get new mail from. In this case, the
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
630 file of new mail is not changed or deleted. Noninteractively, you can
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
631 pass the inbox file name as an argument. Interactively, a prefix
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
632 argument causes us to read a file name and use that file as the inbox."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
633 (interactive
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
634 (list (if current-prefix-arg
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
635 (read-file-name "Get new mail from file: "))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
636 (or (verify-visited-file-modtime (current-buffer))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
637 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
638 (find-file (buffer-file-name))
2006
3f64e7ba7fdd (rmail-get-new-mail): Reset read-only after find-file.
Richard M. Stallman <rms@gnu.org>
parents: 1757
diff changeset
639 (setq buffer-read-only t)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
640 (if (verify-visited-file-modtime (current-buffer))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
641 (rmail-forget-messages))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
642 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
643 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
644 ;; Get rid of all undo records for this buffer.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
645 (or (eq buffer-undo-list t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
646 (setq buffer-undo-list nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
647 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
648 (let ((opoint (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
649 (new-messages 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
650 (delete-files ())
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
651 ;; If buffer has not changed yet, and has not been saved yet,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
652 ;; don't replace the old backup file now.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
653 (make-backup-files (and make-backup-files (buffer-modified-p)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
654 (buffer-read-only nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
655 ;; Don't make undo records for what we do in getting mail.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
656 (buffer-undo-list t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
657 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
658 (skip-chars-backward " \t\n") ; just in case of brain damage
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
659 (delete-region (point) (point-max)) ; caused by require-final-newline
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
660 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
661 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
662 (narrow-to-region (point) (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
663 ;; Read in the contents of the inbox files,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
664 ;; renaming them as necessary,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
665 ;; and adding to the list of files to delete eventually.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
666 (if file-name
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
667 (rmail-insert-inbox-text (list file-name) nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
668 (setq delete-files (rmail-insert-inbox-text rmail-inbox-list t)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
669 ;; Scan the new text and convert each message to babyl format.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
670 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
671 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
672 (setq new-messages (rmail-convert-to-babyl-format)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
673 (or (zerop new-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
674 (let (success)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
675 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
676 (search-backward "\n\^_")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
677 (narrow-to-region (point) (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
678 (goto-char (1+ (point-min)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
679 (rmail-count-new-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
680 (save-buffer)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
681 ;; Delete the old files, now that babyl file is saved.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
682 (while delete-files
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
683 (condition-case ()
1165
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
684 ;; First, try deleting.
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
685 (condition-case ()
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
686 (delete-file (car delete-files))
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
687 (file-error
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
688 ;; If we can't delete it, truncate it.
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
689 (write-region (point) (point) (car delete-files))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
690 (file-error nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
691 (setq delete-files (cdr delete-files)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
692 (if (= new-messages 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
693 (progn (goto-char opoint)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
694 (if (or file-name rmail-inbox-list)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
695 (message "(No new mail has arrived)")))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
696 (if (rmail-summary-exists)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
697 (rmail-select-summary
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
698 (rmail-update-summary)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
699 (message "%d new message%s read"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
700 new-messages (if (= 1 new-messages) "" "s"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
701 (and (boundp 'display-time-string)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
702 (string-match " Mail" display-time-string)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
703 (setq display-time-string
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
704 (concat
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
705 (substring display-time-string 0 (match-beginning 0))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
706 (substring display-time-string (match-end 0))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
707 (force-mode-line-update 'all))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
708 ;; Don't leave the buffer screwed up if we get a disk-full error.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
709 (rmail-show-message)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
710
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
711 (defun rmail-insert-inbox-text (files renamep)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
712 (let (file tofile delete-files movemail popmail)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
713 (while files
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
714 (setq file (expand-file-name (substitute-in-file-name (car files)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
715 ;;>> un*x specific <<
813
f3706268745a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 807
diff changeset
716 ;; The "+" used to be "~", which is an extremely poor choice;
f3706268745a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 807
diff changeset
717 ;; it might accidentally be deleted when space is low
f3706268745a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 807
diff changeset
718 ;; (as happened to me!).
f3706268745a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 807
diff changeset
719 tofile (concat file "+"))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
720 ;; If getting from mail spool directory,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
721 ;; use movemail to move rather than just renaming,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
722 ;; so as to interlock with the mailer.
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
723 (setq movemail (equal (file-name-directory file) rmail-spool-directory)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
724 popmail (string-match "^po:" (file-name-nondirectory file)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
725 (if popmail (setq file (file-name-nondirectory file)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
726 renamep t))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
727 (if movemail
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
728 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
729 (setq tofile (expand-file-name
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
730 ;; Generate name to move to from inbox name,
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
731 ;; in case of multiple inboxes that need moving.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
732 (concat ".newmail-" (file-name-nondirectory file))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
733 ;; Use the directory of this rmail file
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
734 ;; because it's a nuisance to use the homedir
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
735 ;; if that is on a full disk and this rmail
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
736 ;; file isn't.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
737 (file-name-directory
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
738 (expand-file-name buffer-file-name))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
739 ;; On some systems, /usr/spool/mail/foo is a directory
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
740 ;; and the actual inbox is /usr/spool/mail/foo/foo.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
741 (if (file-directory-p file)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
742 (setq file (expand-file-name (user-original-login-name)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
743 file)))))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
744 (if popmail
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
745 (message "Getting mail from post office ...")
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
746 (if (or (and (file-exists-p tofile)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
747 (/= 0 (nth 7 (file-attributes tofile))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
748 (and (file-exists-p file)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
749 (/= 0 (nth 7 (file-attributes file)))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
750 (message "Getting mail from %s..." file)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
751 ;; Set TOFILE if have not already done so, and
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
752 ;; rename or copy the file FILE to TOFILE if and as appropriate.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
753 (cond ((not renamep)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
754 (setq tofile file))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
755 ((or (file-exists-p tofile) (and (not popmail)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
756 (not (file-exists-p file))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
757 nil)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
758 ((and (not movemail) (not popmail))
4071
4f387cc0a49f (rmail-insert-inbox-text): If inbox is not in the
Richard M. Stallman <rms@gnu.org>
parents: 4020
diff changeset
759 ;; Try copying. If that fails (perhaps no space),
4f387cc0a49f (rmail-insert-inbox-text): If inbox is not in the
Richard M. Stallman <rms@gnu.org>
parents: 4020
diff changeset
760 ;; rename instead.
4f387cc0a49f (rmail-insert-inbox-text): If inbox is not in the
Richard M. Stallman <rms@gnu.org>
parents: 4020
diff changeset
761 (condition-case nil
4f387cc0a49f (rmail-insert-inbox-text): If inbox is not in the
Richard M. Stallman <rms@gnu.org>
parents: 4020
diff changeset
762 (copy-file file tofile nil)
4f387cc0a49f (rmail-insert-inbox-text): If inbox is not in the
Richard M. Stallman <rms@gnu.org>
parents: 4020
diff changeset
763 (error
4f387cc0a49f (rmail-insert-inbox-text): If inbox is not in the
Richard M. Stallman <rms@gnu.org>
parents: 4020
diff changeset
764 (rename-file file tofile nil)))
1165
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
765 ;; Make the real inbox file empty.
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
766 ;; Leaving it deleted could cause lossage
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
767 ;; because mailers often won't create the file.
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
768 (condition-case ()
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
769 (write-region (point) (point) file)
8aa120c74487 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1161
diff changeset
770 (file-error nil)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
771 (t
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
772 (let ((errors nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
773 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
774 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
775 (setq errors (generate-new-buffer " *rmail loss*"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
776 (buffer-disable-undo errors)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
777 (call-process
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
778 (expand-file-name "movemail" exec-directory)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
779 nil errors nil file tofile)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
780 (if (not (buffer-modified-p errors))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
781 ;; No output => movemail won
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
782 nil
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
783 (set-buffer errors)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
784 (subst-char-in-region (point-min) (point-max)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
785 ?\n ?\ )
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
786 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
787 (skip-chars-backward " \t")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
788 (delete-region (point) (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
789 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
790 (if (looking-at "movemail: ")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
791 (delete-region (point-min) (match-end 0)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
792 (beep t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
793 (message (concat "movemail: "
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
794 (buffer-substring (point-min)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
795 (point-max))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
796 (sit-for 3)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
797 nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
798 (if errors (kill-buffer errors))))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
799 ;; At this point, TOFILE contains the name to read:
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
800 ;; Either the alternate name (if we renamed)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
801 ;; or the actual inbox (if not renaming).
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
802 (if (file-exists-p tofile)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
803 (let (size)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
804 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
805 (setq size (nth 1 (insert-file-contents tofile)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
806 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
807 (or (= (preceding-char) ?\n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
808 (zerop size)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
809 (insert ?\n))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
810 (setq delete-files (cons tofile delete-files))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
811 (message "")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
812 (setq files (cdr files)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
813 delete-files))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
814
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
815 ;; the rmail-break-forwarded-messages feature is not implemented
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
816 (defun rmail-convert-to-babyl-format ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
817 (let ((count 0) start
402
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
818 (case-fold-search nil)
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
819 (invalid-input-resync
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
820 (function (lambda ()
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
821 (message "Invalid Babyl format in inbox!")
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
822 (sit-for 1)
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
823 ;; Try to get back in sync with a real message.
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
824 (if (re-search-forward
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
825 (concat mmdf-delim1 "\\|^From") nil t)
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
826 (beginning-of-line)
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
827 (goto-char (point-max)))))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
828 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
829 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
830 (while (not (eobp))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
831 (cond ((looking-at "BABYL OPTIONS:");Babyl header
402
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
832 (if (search-forward "\n\^_" nil t)
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
833 ;; If we find the proper terminator, delete through there.
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
834 (delete-region (point-min) (point))
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
835 (funcall invalid-input-resync)
405
698d5d6e8f8b *** empty log message ***
Michael I. Bushnell <mib@gnu.org>
parents: 403
diff changeset
836 (delete-region (point-min) (point))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
837 ;; Babyl format message
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
838 ((looking-at "\^L")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
839 (or (search-forward "\n\^_" nil t)
402
14485c6a56aa *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 346
diff changeset
840 (funcall invalid-input-resync))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
841 (setq count (1+ count))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
842 ;; Make sure there is no extra white space after the ^_
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
843 ;; at the end of the message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
844 ;; Narrowing will make sure that whatever follows the junk
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
845 ;; will be treated properly.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
846 (delete-region (point)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
847 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
848 (skip-chars-forward " \t\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
849 (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
850 (narrow-to-region (point) (point-max)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
851 ;;*** MMDF format
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
852 ((let ((case-fold-search t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
853 (looking-at mmdf-delim1))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
854 (let ((case-fold-search t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
855 (replace-match "\^L\n0, unseen,,\n*** EOOH ***\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
856 (setq start (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
857 (re-search-forward mmdf-delim2 nil t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
858 (replace-match "\^_"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
859 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
860 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
861 (narrow-to-region start (1- (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
862 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
863 (while (search-forward "\n\^_" nil t); single char "\^_"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
864 (replace-match "\n^_")))); 2 chars: "^" and "_"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
865 (narrow-to-region (point) (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
866 (setq count (1+ count)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
867 ;;*** Mail format
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
868 ((looking-at "^From ")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
869 (setq start (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
870 (insert "\^L\n0, unseen,,\n*** EOOH ***\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
871 (rmail-nuke-pinhead-header)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
872 ;; If this message has a Content-Length field,
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
873 ;; skip to the end of the contents.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
874 (let* ((header-end (save-excursion
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
875 (and (re-search-forward "\n\n" nil t)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
876 (point))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
877 (case-fold-search t)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
878 (size
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
879 ;; Get the numeric value from the Content-Length field.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
880 (save-excursion
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
881 ;; Back up to end of prev line,
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
882 ;; in case the Content-Length field comes first.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
883 (forward-char -1)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
884 (and (search-forward "\ncontent-length: "
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
885 header-end t)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
886 (let ((beg (point))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
887 (eol (progn (end-of-line) (point))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
888 (read (buffer-substring beg eol)))))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
889 (if size
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
890 (goto-char (+ header-end size))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
891
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
892 (if (re-search-forward
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
893 (concat "^[\^_]?\\("
617
cde1f15848c6 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
894 rmail-unix-mail-delimiter
cde1f15848c6 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
895 "\\|"
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
896 mmdf-delim1 "\\|"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
897 "^BABYL OPTIONS:\\|"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
898 "\^L\n[01],\\)") nil t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
899 (goto-char (match-beginning 1))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
900 (goto-char (point-max)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
901 (setq count (1+ count))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
902 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
903 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
904 (narrow-to-region start (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
905 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
906 (while (search-forward "\n\^_" nil t); single char
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
907 (replace-match "\n^_")))); 2 chars: "^" and "_"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
908 (insert ?\^_)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
909 (narrow-to-region (point) (point-max)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
910 ;;
2700
9de57e00caf7 (rmail-convert-to-babyl-format): Delete 1 char
Richard M. Stallman <rms@gnu.org>
parents: 2687
diff changeset
911 ;; This kludge is because some versions of sendmail.el
9de57e00caf7 (rmail-convert-to-babyl-format): Delete 1 char
Richard M. Stallman <rms@gnu.org>
parents: 2687
diff changeset
912 ;; insert an extra newline at the beginning that shouldn't
9de57e00caf7 (rmail-convert-to-babyl-format): Delete 1 char
Richard M. Stallman <rms@gnu.org>
parents: 2687
diff changeset
913 ;; be there. sendmail.el has been fixed, but old versions
9de57e00caf7 (rmail-convert-to-babyl-format): Delete 1 char
Richard M. Stallman <rms@gnu.org>
parents: 2687
diff changeset
914 ;; may still be in use. -- rms, 7 May 1993.
9de57e00caf7 (rmail-convert-to-babyl-format): Delete 1 char
Richard M. Stallman <rms@gnu.org>
parents: 2687
diff changeset
915 ((eolp) (delete-char 1))
405
698d5d6e8f8b *** empty log message ***
Michael I. Bushnell <mib@gnu.org>
parents: 403
diff changeset
916 (t (error "Cannot convert to babyl format")))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
917 count))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
918
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
919 ;; Delete the "From ..." line, creating various other headers with
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
920 ;; information from it if they don't already exist. Now puts the
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
921 ;; original line into a mail-from: header line for debugging.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
922 (defun rmail-nuke-pinhead-header ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
923 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
924 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
925 (let ((start (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
926 (end (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
927 (condition-case ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
928 (search-forward "\n\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
929 (error
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
930 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
931 (insert "\n\n")))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
932 (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
933 has-from has-date)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
934 (narrow-to-region start end)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
935 (let ((case-fold-search t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
936 (goto-char start)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
937 (setq has-from (search-forward "\nFrom:" nil t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
938 (goto-char start)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
939 (setq has-date (and (search-forward "\nDate:" nil t) (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
940 (goto-char start))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
941 (let ((case-fold-search nil))
617
cde1f15848c6 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 584
diff changeset
942 (if (re-search-forward (concat "^" rmail-unix-mail-delimiter) nil t)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
943 (replace-match
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
944 (concat
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
945 "Mail-from: \\&"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
946 ;; Keep and reformat the date if we don't
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
947 ;; have a Date: field.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
948 (if has-date
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
949 ""
1112
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
950 (concat
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
951 "Date: \\3, \\5 \\4 \\9 \\6 "
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
952
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
953 ;; The timezone could be matched by group 7 or group 10.
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
954 ;; If neither of them matched, assume EST, since only
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
955 ;; Easterners would be so sloppy.
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
956 ;; It's a shame the substitution can't use "\\10".
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
957 (cond
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
958 ((/= (match-beginning 7) (match-end 7)) "\\7")
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
959 ((/= (match-beginning 10) (match-end 10))
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
960 (buffer-substring (match-beginning 10)
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
961 (match-end 10)))
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
962 (t "EST"))
1dba066c1e0a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1078
diff changeset
963 "\n"))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
964 ;; Keep and reformat the sender if we don't
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
965 ;; have a From: field.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
966 (if has-from
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
967 ""
4340
505fb5222dea (rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
Richard M. Stallman <rms@gnu.org>
parents: 4332
diff changeset
968 "From: \\1\n"))
505fb5222dea (rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
Richard M. Stallman <rms@gnu.org>
parents: 4332
diff changeset
969 t)))))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
970
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
971 ;;;; *** Rmail Message Formatting and Header Manipulation ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
972
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
973 (defun rmail-reformat-message (beg end)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
974 (goto-char beg)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
975 (forward-line 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
976 (if (/= (following-char) ?0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
977 (error "Bad format in RMAIL file."))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
978 (let ((buffer-read-only nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
979 (delta (- (buffer-size) end)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
980 (delete-char 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
981 (insert ?1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
982 (forward-line 1)
4340
505fb5222dea (rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
Richard M. Stallman <rms@gnu.org>
parents: 4332
diff changeset
983 (let ((case-fold-search t))
505fb5222dea (rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
Richard M. Stallman <rms@gnu.org>
parents: 4332
diff changeset
984 (if (looking-at "Summary-line: ")
505fb5222dea (rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
Richard M. Stallman <rms@gnu.org>
parents: 4332
diff changeset
985 (forward-line 1)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
986 (if (looking-at "\\*\\*\\* EOOH \\*\\*\\*\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
987 (delete-region (point)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
988 (progn (forward-line 1) (point))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
989 (let ((str (buffer-substring (point)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
990 (save-excursion (search-forward "\n\n" end 'move)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
991 (point)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
992 (insert str "*** EOOH ***\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
993 (narrow-to-region (point) (- (buffer-size) delta)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
994 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
995 (if rmail-ignored-headers (rmail-clear-headers))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
996 (if rmail-message-filter (funcall rmail-message-filter))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
997
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
998 (defun rmail-clear-headers ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
999 (if (search-forward "\n\n" nil t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1000 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1001 (narrow-to-region (point-min) (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1002 (let ((buffer-read-only nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1003 (while (let ((case-fold-search t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1004 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1005 (re-search-forward rmail-ignored-headers nil t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1006 (beginning-of-line)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1007 (delete-region (point)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1008 (progn (re-search-forward "\n[^ \t]")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1009 (forward-char -1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1010 (point))))))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1011
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1012 (defun rmail-toggle-header ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1013 "Show original message header if pruned header currently shown, or vice versa."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1014 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1015 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1016 (narrow-to-region (rmail-msgbeg rmail-current-message) (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1017 (let ((buffer-read-only nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1018 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1019 (forward-line 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1020 (if (= (following-char) ?1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1021 (progn (delete-char 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1022 (insert ?0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1023 (forward-line 1)
4340
505fb5222dea (rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
Richard M. Stallman <rms@gnu.org>
parents: 4332
diff changeset
1024 (let ((case-fold-search t))
505fb5222dea (rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
Richard M. Stallman <rms@gnu.org>
parents: 4332
diff changeset
1025 (if (looking-at "Summary-Line:")
505fb5222dea (rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
Richard M. Stallman <rms@gnu.org>
parents: 4332
diff changeset
1026 (forward-line 1)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1027 (insert "*** EOOH ***\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1028 (forward-char -1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1029 (search-forward "\n*** EOOH ***\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1030 (forward-line -1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1031 (let ((temp (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1032 (and (search-forward "\n\n" nil t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1033 (delete-region temp (point))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1034 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1035 (search-forward "\n*** EOOH ***\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1036 (narrow-to-region (point) (point-max)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1037 (rmail-reformat-message (point-min) (point-max)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1038
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1039 ;;;; *** Rmail Attributes and Keywords ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1040
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1041 ;; Make a string describing current message's attributes and keywords
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1042 ;; and set it up as the name of a minor mode
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1043 ;; so it will appear in the mode line.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1044 (defun rmail-display-labels ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1045 (let ((blurb "") (beg (point-min-marker)) (end (point-max-marker)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1046 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1047 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1048 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1049 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1050 (goto-char (rmail-msgbeg rmail-current-message))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1051 (forward-line 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1052 (if (looking-at "[01],")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1053 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1054 (narrow-to-region (point) (progn (end-of-line) (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1055 ;; Truly valid BABYL format requires a space before each
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1056 ;; attribute or keyword name. Put them in if missing.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1057 (let (buffer-read-only)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1058 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1059 (while (search-forward "," nil t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1060 (or (looking-at "[ ,]") (eobp)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1061 (insert " "))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1062 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1063 (if (search-backward ",," nil 'move)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1064 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1065 (if (> (point) (1+ (point-min)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1066 (setq blurb (buffer-substring (+ 1 (point-min)) (point))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1067 (if (> (- (point-max) (point)) 2)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1068 (setq blurb
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1069 (concat blurb
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1070 ";"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1071 (buffer-substring (+ (point) 3)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1072 (1- (point-max)))))))))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1073 ;; Note: we don't use save-restriction because that does not work right
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1074 ;; if changes are made outside the saved restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1075 ;; before that restriction is restored.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1076 (narrow-to-region beg end)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1077 (set-marker beg nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1078 (set-marker end nil)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1079 (while (string-match " +," blurb)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1080 (setq blurb (concat (substring blurb 0 (match-beginning 0)) ","
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1081 (substring blurb (match-end 0)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1082 (while (string-match ", +" blurb)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1083 (setq blurb (concat (substring blurb 0 (match-beginning 0)) ","
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1084 (substring blurb (match-end 0)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1085 (setq mode-line-process
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1086 (concat " " rmail-current-message "/" rmail-total-messages
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1087 blurb))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1088
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1089 ;; Turn an attribute of a message on or off according to STATE.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1090 ;; ATTR is the name of the attribute, as a string.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1091 ;; MSGNUM is message number to change; nil means current message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1092 (defun rmail-set-attribute (attr state &optional msgnum)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1093 (let ((omax (point-max-marker))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1094 (omin (point-min-marker))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1095 (buffer-read-only nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1096 (or msgnum (setq msgnum rmail-current-message))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1097 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1098 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1099 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1100 (goto-char (+ 3 (rmail-msgbeg msgnum)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1101 (let ((curstate
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1102 (not
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1103 (null (search-backward (concat ", " attr ",")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1104 (prog1 (point) (end-of-line)) t)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1105 (or (eq curstate (not (not state)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1106 (if curstate
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1107 (delete-region (point) (1- (match-end 0)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1108 (beginning-of-line)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1109 (forward-char 2)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1110 (insert " " attr ","))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1111 (if (string= attr "deleted")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1112 (rmail-set-message-deleted-p msgnum state)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1113 ;; Note: we don't use save-restriction because that does not work right
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1114 ;; if changes are made outside the saved restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1115 ;; before that restriction is restored.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1116 (narrow-to-region omin omax)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1117 (set-marker omin nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1118 (set-marker omax nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1119 (if (= msgnum rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1120 (rmail-display-labels)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1121
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1122 ;; Return t if the attributes/keywords line of msg number MSG
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1123 ;; contains a match for the regexp LABELS.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1124 (defun rmail-message-labels-p (msg labels)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1125 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1126 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1127 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1128 (goto-char (rmail-msgbeg msg))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1129 (forward-char 3)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1130 (re-search-backward labels (prog1 (point) (end-of-line)) t))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1131
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1132 ;;;; *** Rmail Message Selection And Support ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1133
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1134 (defun rmail-msgend (n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1135 (marker-position (aref rmail-message-vector (1+ n))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1136
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1137 (defun rmail-msgbeg (n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1138 (marker-position (aref rmail-message-vector n)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1139
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1140 (defun rmail-widen-to-current-msgbeg (function)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1141 "Call FUNCTION with point at start of internal data of current message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1142 Assumes that bounds were previously narrowed to display the message in Rmail.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1143 The bounds are widened enough to move point where desired, then narrowed
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1144 again afterward.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1145
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1146 FUNCTION may not change the visible text of the message, but it may
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1147 change the invisible header text."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1148 (save-excursion
344
057b6b26930e *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 280
diff changeset
1149 (let ((obeg (- (point-max) (point-min))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1150 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1151 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1152 (narrow-to-region (rmail-msgbeg rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1153 (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1154 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1155 (funcall function))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1156 ;; Note: we don't use save-restriction because that does not work right
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1157 ;; if changes are made outside the saved restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1158 ;; before that restriction is restored.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1159 ;; Here we assume that changes made by FUNCTION
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1160 ;; occur before the visible region of the message.
344
057b6b26930e *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 280
diff changeset
1161 (narrow-to-region (- (point-max) obeg) (point-max))))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1162
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1163 (defun rmail-forget-messages ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1164 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1165 (if (vectorp rmail-message-vector)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1166 (let* ((i 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1167 (v rmail-message-vector)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1168 (n (length v)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1169 (while (< i n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1170 (move-marker (aref v i) nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1171 (setq i (1+ i)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1172 (setq rmail-message-vector nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1173 (setq rmail-deleted-vector nil)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1174
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1175 (defun rmail-maybe-set-message-counters ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1176 (if (not (and rmail-deleted-vector
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1177 rmail-message-vector
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1178 rmail-current-message
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1179 rmail-total-messages))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1180 (rmail-set-message-counters)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1181
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1182 (defun rmail-count-new-messages (&optional nomsg)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1183 (let* ((case-fold-search nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1184 (total-messages 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1185 (messages-head nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1186 (deleted-head nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1187 (or nomsg (message "Counting new messages..."))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1188 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1189 ;; Put at the end of messages-head
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1190 ;; the entry for message N+1, which marks
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1191 ;; the end of message N. (N = number of messages).
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1192 (search-backward "\n\^_")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1193 (forward-char 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1194 (setq messages-head (list (point-marker)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1195 (rmail-set-message-counters-counter (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1196 (setq rmail-current-message (1+ rmail-total-messages))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1197 (setq rmail-total-messages
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1198 (+ rmail-total-messages total-messages))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1199 (setq rmail-message-vector
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1200 (vconcat rmail-message-vector (cdr messages-head)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1201 (aset rmail-message-vector
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1202 rmail-current-message (car messages-head))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1203 (setq rmail-deleted-vector
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1204 (concat rmail-deleted-vector deleted-head))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1205 (setq rmail-summary-vector
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1206 (vconcat rmail-summary-vector (make-vector total-messages nil)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1207 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1208 (or nomsg (message "Counting new messages...done (%d)" total-messages))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1209
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1210 (defun rmail-set-message-counters ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1211 (rmail-forget-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1212 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1213 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1214 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1215 (let* ((point-save (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1216 (total-messages 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1217 (messages-after-point)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1218 (case-fold-search nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1219 (messages-head nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1220 (deleted-head nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1221 (message "Counting messages...")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1222 (goto-char (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1223 ;; Put at the end of messages-head
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1224 ;; the entry for message N+1, which marks
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1225 ;; the end of message N. (N = number of messages).
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1226 (search-backward "\n\^_")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1227 (forward-char 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1228 (setq messages-head (list (point-marker)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1229 (rmail-set-message-counters-counter (min (point) point-save))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1230 (setq messages-after-point total-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1231 (rmail-set-message-counters-counter)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1232 (setq rmail-total-messages total-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1233 (setq rmail-current-message
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1234 (min total-messages
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1235 (max 1 (- total-messages messages-after-point))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1236 (setq rmail-message-vector
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1237 (apply 'vector (cons (point-min-marker) messages-head))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1238 rmail-deleted-vector (concat "D" deleted-head)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1239 rmail-summary-vector (make-vector rmail-total-messages nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1240 (message "Counting messages...done")))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1241
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1242 (defun rmail-set-message-counters-counter (&optional stop)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1243 (while (search-backward "\n\^_\^L\n" stop t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1244 (forward-char 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1245 (setq messages-head (cons (point-marker) messages-head))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1246 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1247 (setq deleted-head
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1248 (cons (if (search-backward ", deleted,"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1249 (prog1 (point)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1250 (forward-line 2))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1251 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1252 ?D ?\ )
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1253 deleted-head)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1254 (if (zerop (% (setq total-messages (1+ total-messages)) 20))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1255 (message "Counting messages...%d" total-messages))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1256
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1257 (defun rmail-beginning-of-message ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1258 "Show current message starting from the beginning."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1259 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1260 (rmail-show-message rmail-current-message))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1261
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1262 (defun rmail-show-message (&optional n)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1263 "Show message number N (prefix argument), counting from start of file.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1264 If summary buffer is currently displayed, update current message there also."
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1265 (interactive "p")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1266 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1267 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1268 (if (zerop rmail-total-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1269 (progn (narrow-to-region (point-min) (1- (point-max)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1270 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1271 (setq mode-line-process nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1272 (let (blurb)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1273 (if (not n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1274 (setq n rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1275 (cond ((<= n 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1276 (setq n 1
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1277 rmail-current-message 1
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1278 blurb "No previous message"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1279 ((> n rmail-total-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1280 (setq n rmail-total-messages
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1281 rmail-current-message rmail-total-messages
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1282 blurb "No following message"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1283 (t
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1284 (setq rmail-current-message n))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1285 (let ((beg (rmail-msgbeg n))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1286 (end (rmail-msgend n)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1287 (goto-char beg)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1288 (forward-line 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1289 (if (= (following-char) ?0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1290 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1291 (rmail-reformat-message beg end)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1292 (rmail-set-attribute "unseen" nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1293 (search-forward "\n*** EOOH ***\n" end t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1294 (narrow-to-region (point) end))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1295 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1296 (rmail-display-labels)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1297 (run-hooks 'rmail-show-message-hook)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1298 ;; If there is a summary buffer, try to move to this message
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1299 ;; in that buffer. But don't complain if this message
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1300 ;; is not mentioned in the summary.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1301 (if (rmail-summary-exists)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1302 (let ((curr-msg rmail-current-message))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1303 (rmail-select-summary
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1304 (rmail-summary-goto-msg curr-msg t t))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1305 (if blurb
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1306 (message blurb))))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1307
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1308 (defun rmail-next-message (n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1309 "Show following message whether deleted or not.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1310 With prefix arg N, moves forward N messages, or backward if N is negative."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1311 (interactive "p")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1312 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1313 (rmail-show-message (+ rmail-current-message n)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1314
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1315 (defun rmail-previous-message (n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1316 "Show previous message whether deleted or not.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1317 With prefix arg N, moves backward N messages, or forward if N is negative."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1318 (interactive "p")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1319 (rmail-next-message (- n)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1320
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1321 (defun rmail-next-undeleted-message (n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1322 "Show following non-deleted message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1323 With prefix arg N, moves forward N non-deleted messages,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1324 or backward if N is negative."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1325 (interactive "p")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1326 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1327 (let ((lastwin rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1328 (current rmail-current-message))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1329 (while (and (> n 0) (< current rmail-total-messages))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1330 (setq current (1+ current))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1331 (if (not (rmail-message-deleted-p current))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1332 (setq lastwin current n (1- n))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1333 (while (and (< n 0) (> current 1))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1334 (setq current (1- current))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1335 (if (not (rmail-message-deleted-p current))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1336 (setq lastwin current n (1+ n))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1337 (if (/= lastwin rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1338 (rmail-show-message lastwin))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1339 (if (< n 0)
997
894201c58bb8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 937
diff changeset
1340 (message "No previous nondeleted message"))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1341 (if (> n 0)
997
894201c58bb8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 937
diff changeset
1342 (message "No following nondeleted message"))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1343
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1344 (defun rmail-previous-undeleted-message (n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1345 "Show previous non-deleted message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1346 With prefix argument N, moves backward N non-deleted messages,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1347 or forward if N is negative."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1348 (interactive "p")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1349 (rmail-next-undeleted-message (- n)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1350
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1351 (defun rmail-first-message ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1352 "Show first message in file."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1353 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1354 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1355 (rmail-show-message 1))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1356
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1357 (defun rmail-last-message ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1358 "Show last message in file."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1359 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1360 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1361 (rmail-show-message rmail-total-messages))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1362
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1363 (defun rmail-what-message ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1364 (let ((where (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1365 (low 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1366 (high rmail-total-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1367 (mid (/ rmail-total-messages 2)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1368 (while (> (- high low) 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1369 (if (>= where (rmail-msgbeg mid))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1370 (setq low mid)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1371 (setq high mid))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1372 (setq mid (+ low (/ (- high low) 2))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1373 (if (>= where (rmail-msgbeg high)) high low)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1374
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1375 (defun rmail-message-recipients-p (msg recipients &optional primary-only)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1376 (save-restriction
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1377 (goto-char (rmail-msgbeg msg))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1378 (search-forward "\n*** EOOH ***\n")
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1379 (narrow-to-region (point) (progn (search-forward "\n\n") (point)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1380 (or (string-match recipients (or (mail-fetch-field "To") ""))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1381 (string-match recipients (or (mail-fetch-field "From") ""))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1382 (if (not primary-only)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1383 (string-match recipients (or (mail-fetch-field "Cc") ""))))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1384
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1385 (defun rmail-message-regexp-p (msg regexp)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1386 "Return t, if for message number MSG, regexp REGEXP matches in the header."
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1387 (goto-char (rmail-msgbeg msg))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1388 (let ((end
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1389 (save-excursion
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1390 (search-forward "*** EOOH ***" (point-max)) (point))))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1391 (re-search-forward regexp end t)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1392
3863
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1393 (defun rmail-search-backward (regexp &optional n)
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1394 "Show message containing next match for REGEXP.
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1395 Prefix argument gives repeat count; negative argument means search
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1396 backwards (through earlier messages).
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1397 Interactively, empty argument means use same regexp used last time."
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1398 (interactive
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1399 (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1400 (prompt
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1401 (concat (if reversep "Reverse " "") "Rmail search (regexp): "))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1402 regexp)
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1403 (if rmail-search-last-regexp
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1404 (setq prompt (concat prompt
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1405 "(default "
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1406 rmail-search-last-regexp
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1407 ") ")))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1408 (setq regexp (read-string prompt))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1409 (cond ((not (equal regexp ""))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1410 (setq rmail-search-last-regexp regexp))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1411 ((not rmail-search-last-regexp)
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1412 (error "No previous Rmail search string")))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1413 (list rmail-search-last-regexp
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1414 (prefix-numeric-value current-prefix-arg))))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1415 (rmail-search regexp (- n)))
049283382a10 (rmail-mode-map): Add local menu bar bindings.
Richard M. Stallman <rms@gnu.org>
parents: 3631
diff changeset
1416
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1417 (defvar rmail-search-last-regexp nil)
874
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1418 (defun rmail-search (regexp &optional n)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1419 "Show message containing next match for REGEXP.
874
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1420 Prefix argument gives repeat count; negative argument means search
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1421 backwards (through earlier messages).
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1422 Interactively, empty argument means use same regexp used last time."
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1423 (interactive
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1424 (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1425 (prompt
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1426 (concat (if reversep "Reverse " "") "Rmail search (regexp): "))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1427 regexp)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1428 (if rmail-search-last-regexp
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1429 (setq prompt (concat prompt
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1430 "(default "
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1431 rmail-search-last-regexp
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1432 ") ")))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1433 (setq regexp (read-string prompt))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1434 (cond ((not (equal regexp ""))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1435 (setq rmail-search-last-regexp regexp))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1436 ((not rmail-search-last-regexp)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1437 (error "No previous Rmail search string")))
874
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1438 (list rmail-search-last-regexp
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1439 (prefix-numeric-value current-prefix-arg))))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1440 (or n (setq n 1))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1441 (message "%sRmail search for %s..."
937
0f082d63bfd6 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 874
diff changeset
1442 (if (< n 0) "Reverse " "")
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1443 regexp)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1444 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1445 (let ((omin (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1446 (omax (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1447 (opoint (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1448 win
874
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1449 (reversep (< n 0))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1450 (msg rmail-current-message))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1451 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1452 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1453 (widen)
874
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1454 (while (/= n 0)
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1455 ;; Check messages one by one, advancing message number up or down
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1456 ;; but searching forward through each message.
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1457 (if reversep
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1458 (while (and (null win) (> msg 1))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1459 (goto-char (rmail-msgbeg (setq msg (1- msg))))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1460 (setq win (re-search-forward
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1461 regexp (rmail-msgend msg) t)))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1462 (while (and (null win) (< msg rmail-total-messages))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1463 (goto-char (rmail-msgbeg (setq msg (1+ msg))))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1464 (setq win (re-search-forward regexp (rmail-msgend msg) t))))
937
0f082d63bfd6 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 874
diff changeset
1465 (setq n (+ n (if reversep 1 -1)))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1466 (if win
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1467 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1468 ;; If this is a reverse search and we found a message,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1469 ;; search backward thru this message to position point.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1470 (if reversep
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1471 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1472 (goto-char (rmail-msgend msg))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1473 (re-search-backward
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1474 regexp (rmail-msgbeg msg) t)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1475 (setq win (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1476 (rmail-show-message msg)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1477 (message "%sRmail search for %s...done"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1478 (if reversep "Reverse " "")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1479 regexp)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1480 (goto-char win))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1481 (goto-char opoint)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1482 (narrow-to-region omin omax)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1483 (ding)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1484 (message "Search failed: %s" regexp)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1485
874
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1486 (defun rmail-search-backwards (regexp &optional n)
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1487 "Show message containing previous match for REGEXP.
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1488 Prefix argument gives repeat count; negative argument means search
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1489 forward (through later messages).
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1490 Interactively, empty argument means use same regexp used last time."
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1491 (interactive
937
0f082d63bfd6 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 874
diff changeset
1492 (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
874
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1493 (prompt
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1494 (concat (if reversep "Reverse " "") "Rmail search (regexp): "))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1495 regexp)
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1496 (if rmail-search-last-regexp
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1497 (setq prompt (concat prompt
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1498 "(default "
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1499 rmail-search-last-regexp
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1500 ") ")))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1501 (setq regexp (read-string prompt))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1502 (cond ((not (equal regexp ""))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1503 (setq rmail-search-last-regexp regexp))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1504 ((not rmail-search-last-regexp)
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1505 (error "No previous Rmail search string")))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1506 (list rmail-search-last-regexp
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1507 (prefix-numeric-value current-prefix-arg))))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1508 (rmail-search regexp (- (or n -1))))
b945f592b94d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1509
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1510 ;; Show the first message which has the `unseen' attribute.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1511 (defun rmail-first-unseen-message ()
1360
9cb1a4b90b5c Cleaned up rmail-first-unseen-message.
Joseph Arceneaux <jla@gnu.org>
parents: 1342
diff changeset
1512 (rmail-maybe-set-message-counters)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1513 (let ((current 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1514 found)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1515 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1516 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1517 (while (and (not found) (< current rmail-total-messages))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1518 (if (rmail-message-labels-p current ", ?\\(unseen\\),")
346
52cd078baf00 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 344
diff changeset
1519 (setq found current))
52cd078baf00 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 344
diff changeset
1520 (setq current (1+ current))))
1342
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
1521 ;; Let the caller show the message.
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
1522 ;; (if found
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
1523 ;; (rmail-show-message found))
776d4c59f256 * rmail.el (rmail-first-unseen-message): Don't show the message,
Joseph Arceneaux <jla@gnu.org>
parents: 1267
diff changeset
1524 found))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1525
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1526 ;;;; *** Rmail Message Deletion Commands ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1527
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1528 (defun rmail-message-deleted-p (n)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1529 (= (aref rmail-deleted-vector n) ?D))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1530
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1531 (defun rmail-set-message-deleted-p (n state)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1532 (aset rmail-deleted-vector n (if state ?D ?\ )))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1533
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1534 (defun rmail-delete-message ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1535 "Delete this message and stay on it."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1536 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1537 (rmail-set-attribute "deleted" t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1538
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1539 (defun rmail-undelete-previous-message ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1540 "Back up to deleted message, select it, and undelete it."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1541 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1542 (let ((msg rmail-current-message))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1543 (while (and (> msg 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1544 (not (rmail-message-deleted-p msg)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1545 (setq msg (1- msg)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1546 (if (= msg 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1547 (error "No previous deleted message")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1548 (if (/= msg rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1549 (rmail-show-message msg))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1550 (rmail-set-attribute "deleted" nil)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1551 (if (rmail-summary-exists)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1552 (save-excursion
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1553 (set-buffer rmail-summary-buffer)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1554 (rmail-summary-mark-undeleted msg)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1555 (rmail-maybe-display-summary))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1556
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1557 (defun rmail-delete-forward (&optional backward)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1558 "Delete this message and move to next nondeleted one.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1559 Deleted messages stay in the file until the \\[rmail-expunge] command is given.
819
5bbabfcef929 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 814
diff changeset
1560 With prefix argument, delete and move backward."
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1561 (interactive "P")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1562 (rmail-set-attribute "deleted" t)
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1563 (let ((del-msg rmail-current-message))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1564 (if (rmail-summary-exists)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1565 (save-excursion
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1566 (set-buffer rmail-summary-buffer)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1567 (rmail-summary-mark-deleted del-msg)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1568 (rmail-next-undeleted-message (if backward -1 1))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1569 (rmail-maybe-display-summary)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1570
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1571 (defun rmail-delete-backward ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1572 "Delete this message and move to previous nondeleted one.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1573 Deleted messages stay in the file until the \\[rmail-expunge] command is given."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1574 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1575 (rmail-delete-forward t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1576
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1577 (defun rmail-only-expunge ()
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1578 "Actually erase all deleted messages in the file."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1579 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1580 (message "Expunging deleted messages...")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1581 ;; Discard all undo records for this buffer.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1582 (or (eq buffer-undo-list t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1583 (setq buffer-undo-list nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1584 (rmail-maybe-set-message-counters)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1585 (let* ((omax (- (buffer-size) (point-max)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1586 (omin (- (buffer-size) (point-min)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1587 (opoint (if (and (> rmail-current-message 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1588 (= ?D (aref rmail-deleted-vector rmail-current-message)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1589 0 (- (point) (point-min))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1590 (messages-head (cons (aref rmail-message-vector 0) nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1591 (messages-tail messages-head)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1592 ;; Don't make any undo records for the expunging.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1593 (buffer-undo-list t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1594 (win))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1595 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1596 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1597 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1598 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1599 (let ((counter 0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1600 (number 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1601 (total rmail-total-messages)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1602 (new-message-number rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1603 (new-summary nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1604 (buffer-read-only nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1605 (messages rmail-message-vector)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1606 (deleted rmail-deleted-vector)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1607 (summary rmail-summary-vector))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1608 (setq rmail-total-messages nil
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1609 rmail-current-message nil
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1610 rmail-message-vector nil
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1611 rmail-deleted-vector nil
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1612 rmail-summary-vector nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1613 (while (<= number total)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1614 (if (= (aref deleted number) ?D)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1615 (progn
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1616 (delete-region
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1617 (marker-position (aref messages number))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1618 (marker-position (aref messages (1+ number))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1619 (move-marker (aref messages number) nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1620 (if (> new-message-number counter)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1621 (setq new-message-number (1- new-message-number))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1622 (setq counter (1+ counter))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1623 (setq messages-tail
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1624 (setcdr messages-tail
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1625 (cons (aref messages number) nil)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1626 (setq new-summary
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1627 (cons (if (= counter number) (aref summary (1- number)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1628 new-summary)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1629 (if (zerop (% (setq number (1+ number)) 20))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1630 (message "Expunging deleted messages...%d" number)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1631 (setq messages-tail
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1632 (setcdr messages-tail
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1633 (cons (aref messages number) nil)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1634 (setq rmail-current-message new-message-number
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1635 rmail-total-messages counter
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1636 rmail-message-vector (apply 'vector messages-head)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1637 rmail-deleted-vector (make-string (1+ counter) ?\ )
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1638 rmail-summary-vector (vconcat (nreverse new-summary))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1639 win t)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1640 (message "Expunging deleted messages...done")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1641 (if (not win)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1642 (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1643 (rmail-show-message
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1644 (if (zerop rmail-current-message) 1 nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1645 (forward-char opoint))))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1646
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1647 (defun rmail-expunge ()
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1648 "Erase deleted messages from Rmail file and summary buffer."
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1649 (interactive)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1650 (rmail-only-expunge)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1651 (if (rmail-summary-exists)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1652 (rmail-select-summary
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1653 (rmail-update-summary))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1654
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1655 ;;;; *** Rmail Mailing Commands ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1656
4108
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1657 (defun rmail-start-mail (&rest args)
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1658 (if rmail-mail-new-frame
4263
7c7fa71cfd6e (rmail-last-rmail-file): Initialize to a file name.
Richard M. Stallman <rms@gnu.org>
parents: 4108
diff changeset
1659 (prog1
4108
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1660 (apply 'mail-other-frame args)
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1661 (modify-frame-parameters (selected-frame)
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1662 '((dedicated . t))))
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1663 (apply 'mail-other-window args)))
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1664
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1665 (defun rmail-mail ()
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1666 "Send mail in another window.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1667 While composing the message, use \\[mail-yank-original] to yank the
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1668 original message into it."
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1669 (interactive)
4108
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1670 (rmail-start-mail nil nil nil nil nil (current-buffer)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1671
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1672 (defun rmail-continue ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1673 "Continue composing outgoing message previously being composed."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1674 (interactive)
4108
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1675 (rmail-start-mail t))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1676
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1677 (defun rmail-reply (just-sender)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1678 "Reply to the current message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1679 Normally include CC: to all other recipients of original message;
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1680 prefix argument means ignore them. While composing the reply,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1681 use \\[mail-yank-original] to yank the original message into it."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1682 (interactive "P")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1683 (let (from reply-to cc subject date to message-id resent-reply-to)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1684 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1685 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1686 (widen)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1687 (goto-char (rmail-msgbeg rmail-current-message))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1688 (forward-line 1)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1689 (if (= (following-char) ?0)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1690 (narrow-to-region
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1691 (progn (forward-line 2)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1692 (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1693 (progn (search-forward "\n\n" (rmail-msgend rmail-current-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1694 'move)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1695 (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1696 (narrow-to-region (point)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1697 (progn (search-forward "\n*** EOOH ***\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1698 (beginning-of-line) (point))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1699 (setq resent-reply-to (mail-fetch-field "resent-reply-to" t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1700 from (mail-fetch-field "from")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1701 reply-to (or resent-reply-to
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1702 (mail-fetch-field "reply-to" nil t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1703 from)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1704 cc (cond (just-sender nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1705 (resent-reply-to (mail-fetch-field "resent-cc" t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1706 (t (mail-fetch-field "cc" nil t)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1707 subject (or (and resent-reply-to
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1708 (mail-fetch-field "resent-subject" t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1709 (mail-fetch-field "subject"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1710 date (cond (resent-reply-to
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1711 (mail-fetch-field "resent-date" t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1712 ((mail-fetch-field "date")))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1713 to (cond (resent-reply-to
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1714 (mail-fetch-field "resent-to" t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1715 ((mail-fetch-field "to" nil t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1716 ;((mail-fetch-field "apparently-to")) ack gag barf
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1717 (t ""))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1718 message-id (cond (resent-reply-to
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1719 (mail-fetch-field "resent-message-id" t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1720 ((mail-fetch-field "message-id"))))))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1721 (and (stringp subject)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1722 (or (string-match (concat "\\`" (regexp-quote rmail-reply-prefix))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1723 subject)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1724 (setq subject (concat rmail-reply-prefix subject))))
4108
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1725 (rmail-start-mail nil
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1726 (mail-strip-quoted-names reply-to)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1727 subject
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1728 (rmail-make-in-reply-to-field from date message-id)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1729 (if just-sender
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1730 nil
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1731 (let* ((cc-list (rmail-dont-reply-to
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1732 (mail-strip-quoted-names
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1733 (if (null cc) to (concat to ", " cc))))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1734 (if (string= cc-list "") nil cc-list)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1735 (current-buffer)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1736 (list (list '(lambda (buf msgnum)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1737 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1738 (set-buffer buf)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1739 (rmail-set-attribute "answered" t msgnum)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1740 (current-buffer) rmail-current-message)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1741
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1742 (defun rmail-make-in-reply-to-field (from date message-id)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1743 (cond ((not from)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1744 (if message-id
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1745 message-id
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1746 nil))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1747 (mail-use-rfc822
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1748 (require 'rfc822)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1749 (let ((tem (car (rfc822-addresses from))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1750 (if message-id
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1751 (if (string-match
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1752 (regexp-quote (if (string-match "@[^@]*\\'" tem)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1753 (substring tem 0 (match-beginning 0))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1754 tem))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1755 message-id)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1756 ;; Message-ID is sufficiently informative
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1757 message-id
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1758 (concat message-id " (" tem ")"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1759 ;; Use prin1 to fake RFC822 quoting
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1760 (let ((field (prin1-to-string tem)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1761 (if date
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1762 (concat field "'s message of " date)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1763 field)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1764 ((let* ((foo "[^][\000-\037\177-\377()<>@,;:\\\" ]+")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1765 (bar "[^][\000-\037\177-\377()<>@,;:\\\"]+"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1766 ;; Can't use format because format loses on \000 (unix *^&%*^&%$!!)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1767 (or (string-match (concat "\\`[ \t]*\\(" bar
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1768 "\\)\\(<" foo "@" foo ">\\)?[ \t]*\\'")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1769 ;; "Unix Loser <Foo@bar.edu>" => "Unix Loser"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1770 from)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1771 (string-match (concat "\\`[ \t]*<" foo "@" foo ">[ \t]*(\\("
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1772 bar "\\))[ \t]*\\'")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1773 ;; "<Bugs@bar.edu>" (Losing Unix) => "Losing Unix"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1774 from)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1775 (let ((start (match-beginning 1))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1776 (end (match-end 1)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1777 ;; Trim whitespace which above regexp match allows
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1778 (while (and (< start end)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1779 (memq (aref from start) '(?\t ?\ )))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1780 (setq start (1+ start)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1781 (while (and (< start end)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1782 (memq (aref from (1- end)) '(?\t ?\ )))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1783 (setq end (1- end)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1784 (let ((field (substring from start end)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1785 (if date (setq field (concat "message from " field " on " date)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1786 (if message-id
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1787 ;; "<AA259@bar.edu> (message from Unix Loser on 1-Apr-89)"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1788 (concat message-id " (" field ")")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1789 field))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1790 (t
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1791 ;; If we can't kludge it simply, do it correctly
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1792 (let ((mail-use-rfc822 t))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1793 (rmail-make-in-reply-to-field from date message-id)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1794
2687
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1795 (defun rmail-forward (resend)
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1796 "Forward the current message to another user.
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1797 With prefix argument, \"resend\" the message instead of forwarding it;
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1798 see the documentation of `rmail-resend'."
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1799 (interactive "P")
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1800 (if resend
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1801 (call-interactively 'rmail-resend)
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1802 (let ((forward-buffer (current-buffer))
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1803 (subject (concat "["
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1804 (let ((from (or (mail-fetch-field "From")
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1805 (mail-fetch-field ">From"))))
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1806 (if from
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1807 (concat (mail-strip-quoted-names from) ": ")
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1808 ""))
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1809 (or (mail-fetch-field "Subject") "")
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1810 "]")))
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1811 ;; Turn off the usual actions for initializing the message body
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1812 ;; because we want to get only the text from the failure message.
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1813 (let (mail-signature mail-setup-hook)
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1814 ;; If only one window, use it for the mail buffer.
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1815 ;; Otherwise, use another window for the mail buffer
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1816 ;; so that the Rmail buffer remains visible
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1817 ;; and sending the mail will get back to it.
4263
7c7fa71cfd6e (rmail-last-rmail-file): Initialize to a file name.
Richard M. Stallman <rms@gnu.org>
parents: 4108
diff changeset
1818 (if (funcall (if (and (not rmail-mail-new-frame) (one-window-p t))
2687
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1819 (function mail)
4108
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1820 (function rmail-start-mail))
2687
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1821 nil nil subject nil nil nil
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1822 (list (list (function (lambda (buf msgnum)
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1823 (save-excursion
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1824 (set-buffer buf)
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1825 (rmail-set-attribute
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1826 "forwarded" t msgnum))))
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1827 (current-buffer)
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1828 rmail-current-message)))
4263
7c7fa71cfd6e (rmail-last-rmail-file): Initialize to a file name.
Richard M. Stallman <rms@gnu.org>
parents: 4108
diff changeset
1829 (save-excursion
7c7fa71cfd6e (rmail-last-rmail-file): Initialize to a file name.
Richard M. Stallman <rms@gnu.org>
parents: 4108
diff changeset
1830 (goto-char (point-max))
7c7fa71cfd6e (rmail-last-rmail-file): Initialize to a file name.
Richard M. Stallman <rms@gnu.org>
parents: 4108
diff changeset
1831 (forward-line 1)
7c7fa71cfd6e (rmail-last-rmail-file): Initialize to a file name.
Richard M. Stallman <rms@gnu.org>
parents: 4108
diff changeset
1832 (insert-buffer forward-buffer)))))))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1833
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1834 (defun rmail-resend (address &optional from comment mail-alias-file)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1835 "Resend current message to ADDRESSES.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1836 ADDRESSES should be a single address, a a string consisting of several
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1837 addresses separated by commas, or a list of addresses.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1838
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1839 Optional FROM is the address to resend the message from, and
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1840 defaults to the username of the person redistributing the message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1841 Optional COMMENT is a string that will be inserted as a comment in the
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1842 resent message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1843 Optional ALIAS-FILE is alternate aliases file to be used by sendmail,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1844 typically for purposes of moderating a list."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1845 (interactive "sResend to: ")
3484
bd26679f0db5 (rmail-resend): Require sendmail and mailalias.
Richard M. Stallman <rms@gnu.org>
parents: 3462
diff changeset
1846 (require 'sendmail)
bd26679f0db5 (rmail-resend): Require sendmail and mailalias.
Richard M. Stallman <rms@gnu.org>
parents: 3462
diff changeset
1847 (require 'mailalias)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1848 (if (not from) (setq from (user-login-name)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1849 (let ((tembuf (generate-new-buffer " sendmail temp"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1850 (mail-header-separator "")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1851 (case-fold-search nil)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1852 (mailbuf (current-buffer)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1853 (unwind-protect
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1854 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1855 ;;>> Copy message into temp buffer
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1856 (set-buffer tembuf)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1857 (insert-buffer-substring mailbuf)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1858 (goto-char (point-min))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1859 ;;>> Insert resent-from:
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1860 (insert "Resent-From: " from "\n")
4020
a35cd533fda4 (rmail-resend): Use RFC 822 style date in Resent-Date: line.
Richard M. Stallman <rms@gnu.org>
parents: 4010
diff changeset
1861 (insert "Resent-Date: " (mail-rfc822-date) "\n")
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1862 ;;>> Insert resent-to: and bcc if need be.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1863 (let ((before (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1864 (insert "Resent-To: " (if (stringp address)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1865 address
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1866 (mapconcat 'identity address ",\n\t"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1867 "\n")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1868 (expand-mail-aliases before (point)))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1869 ;;>> Set up comment, if any.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1870 (if (and (sequencep comment) (not (zerop (length comment))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1871 (let ((before (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1872 after)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1873 (insert comment)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1874 (or (eolp) (insert "\n"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1875 (setq after (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1876 (goto-char before)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1877 (while (< (point) after)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1878 (insert "Resent-Comment: ")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1879 (forward-line 1))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1880 ;; Don't expand aliases in the destination fields
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1881 ;; of the original message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1882 (let (mail-aliases)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1883 (sendmail-send-it)))
2687
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1884 (kill-buffer tembuf))
37cca1d50b6a (rmail-resend): Add `resent' attribute.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
1885 (rmail-set-attribute "resent" t rmail-current-message)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1886
1267
1e1a54ebb29b (mail-unsent-separator): Add another alternative.
Richard M. Stallman <rms@gnu.org>
parents: 1165
diff changeset
1887 (defvar mail-unsent-separator
1370
c017b62c8073 (mail-unsent-separator): Allow "original message" as alternative.
Richard M. Stallman <rms@gnu.org>
parents: 1360
diff changeset
1888 (concat "^ *---+ +Unsent message follows +---+ *$\\|"
c017b62c8073 (mail-unsent-separator): Allow "original message" as alternative.
Richard M. Stallman <rms@gnu.org>
parents: 1360
diff changeset
1889 "^ *---+ +Returned message +---+ *$\\|"
1372
e839dc00fc2e (mail-unsent-separator): Handle "Message text follows".
Richard M. Stallman <rms@gnu.org>
parents: 1370
diff changeset
1890 "^ *---+ +Original message +---+ *$\\|"
1757
7e85913523ef (mail-unsent-separator): Add `-- begin message --'.
Richard M. Stallman <rms@gnu.org>
parents: 1704
diff changeset
1891 "^ *--+ +begin message +--+ *$\\|"
1372
e839dc00fc2e (mail-unsent-separator): Handle "Message text follows".
Richard M. Stallman <rms@gnu.org>
parents: 1370
diff changeset
1892 "^|? *---+ +Message text follows: +---+ *|?$"))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1893
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1894 (defun rmail-retry-failure ()
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1895 "Edit a mail message which is based on the contents of the current message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1896 For a message rejected by the mail system, extract the interesting headers and
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1897 the body of the original message; otherwise copy the current message."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1898 (interactive)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1899 (require 'mail-utils)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1900 (let (to subj irp2 cc orig-message)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1901 (save-excursion
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1902 ;; Narrow down to just the quoted original message
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1903 (rmail-beginning-of-message)
1370
c017b62c8073 (mail-unsent-separator): Allow "original message" as alternative.
Richard M. Stallman <rms@gnu.org>
parents: 1360
diff changeset
1904 (let ((case-fold-search t))
c017b62c8073 (mail-unsent-separator): Allow "original message" as alternative.
Richard M. Stallman <rms@gnu.org>
parents: 1360
diff changeset
1905 (or (re-search-forward mail-unsent-separator nil t)
c017b62c8073 (mail-unsent-separator): Allow "original message" as alternative.
Richard M. Stallman <rms@gnu.org>
parents: 1360
diff changeset
1906 (error "Cannot parse this as a failure message")))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1907 (save-restriction
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1908 (narrow-to-region (point) (point-max))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1909 ;; Now mail-fetch-field will get from headers of the original message,
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1910 ;; not from the headers of the rejection.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1911 (setq to (mail-fetch-field "To")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1912 subj (mail-fetch-field "Subject")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1913 irp2 (mail-fetch-field "In-reply-to")
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1914 cc (mail-fetch-field "Cc"))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1915 ;; Get the entire text (not headers) of the original message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1916 (setq orig-message
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1917 (buffer-substring
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1918 (progn (search-forward "\n\n") (point))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1919 (point-max)))))
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1920 ;; Start sending a new message; default header fields from the original.
1135
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1921 ;; Turn off the usual actions for initializing the message body
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1922 ;; because we want to get only the text from the failure message.
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1923 (let (mail-signature mail-setup-hook)
4108
e4fbcd480455 (rmail-mail-new-frame): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4071
diff changeset
1924 (if (rmail-start-mail nil to subj irp2 cc (current-buffer))
1135
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1925 ;; Insert original text as initial text of new draft message.
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1926 (progn
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1927 (goto-char (point-max))
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1928 (insert orig-message)
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1929 (goto-char (point-min))
e33f6475229a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1112
diff changeset
1930 (end-of-line))))))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1931
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1932 (defun rmail-bury ()
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1933 "Bury current Rmail buffer and its summary buffer."
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1934 (interactive)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1935 (let ((rmail-buffer (current-buffer)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1936 (if (rmail-summary-exists)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1937 (let (window)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1938 (while (setq window (get-buffer-window rmail-summary-buffer))
3083
59b8b6ac30e0 (rmail-bury): Fix call to set-window-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 2700
diff changeset
1939 (set-window-buffer window (other-buffer rmail-summary-buffer)))
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1940 (bury-buffer rmail-summary-buffer)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1941 (switch-to-buffer (other-buffer (current-buffer)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1942 (bury-buffer rmail-buffer)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1943
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1944 (defun rmail-summary-exists ()
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1945 "Non-nil iff in an RMAIL buffer and an associated summary buffer exists.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1946 Non-nil value returned is the summary buffer."
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1947 (and rmail-summary-buffer (buffer-name rmail-summary-buffer)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1948 rmail-summary-buffer))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1949
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1950 (defun rmail-summary-displayed ()
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1951 "t iff in RMAIL buffer and an associated summary buffer is displayed."
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1952 (and rmail-summary-buffer (get-buffer-window rmail-summary-buffer)))
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1953
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1954 (defvar rmail-redisplay-summary nil
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1955 "*Non-nil means Rmail should show the summary when it changes.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1956 This has an effect only if a summary buffer exists.")
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1957
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1958 ;; Put the summary buffer back on the screen, if user wants that.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1959 (defun rmail-maybe-display-summary ()
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1960 (and rmail-summary-buffer (buffer-name rmail-summary-buffer)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1961 rmail-redisplay-summary
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1962 (display-buffer rmail-summary-buffer)))
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1963
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1964 ;;;; *** Rmail Specify Inbox Files ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1965
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1966 (autoload 'set-rmail-inbox-list "rmailmsc"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1967 "Set the inbox list of the current RMAIL file to FILE-NAME.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1968 This may be a list of file names separated by commas.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1969 If FILE-NAME is empty, remove any inbox list."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1970 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1971
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1972 ;;;; *** Rmail Commands for Labels ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1973
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1974 (autoload 'rmail-add-label "rmailkwd"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1975 "Add LABEL to labels associated with current RMAIL message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1976 Completion is performed over known labels when reading."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1977 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1978
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1979 (autoload 'rmail-kill-label "rmailkwd"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1980 "Remove LABEL from labels associated with current RMAIL message.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1981 Completion is performed over known labels when reading."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1982 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1983
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1984 (autoload 'rmail-next-labeled-message "rmailkwd"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1985 "Show next message with LABEL. Defaults to last label used.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1986 With prefix argument N moves forward N messages with this label."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1987 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1988
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1989 (autoload 'rmail-previous-labeled-message "rmailkwd"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1990 "Show previous message with LABEL. Defaults to last label used.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1991 With prefix argument N moves backward N messages with this label."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1992 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1993
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1994 (autoload 'rmail-read-label "rmailkwd"
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1995 "PROMPT and read with completion an Rmail message label."
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1996 t)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
1997
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1998 ;;;; *** Rmail Edit Mode ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1999
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2000 (autoload 'rmail-edit-current-message "rmailedit"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2001 "Edit the contents of the current message"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2002 t)
3877
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2003
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2004 ;;;; *** Rmail Sorting ***
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2005
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2006 (autoload 'rmail-sort-by-date "rmailsort"
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2007 "Sort messages of current Rmail file by date.
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2008 If prefix argument REVERSE is non-nil, sort them in reverse order." t)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2009
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2010 (autoload 'rmail-sort-by-subject "rmailsort"
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2011 "Sort messages of current Rmail file by subject.
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2012 If prefix argument REVERSE is non-nil, sort them in reverse order." t)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2013
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2014 (autoload 'rmail-sort-by-author "rmailsort"
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2015 "Sort messages of current Rmail file by author.
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2016 If prefix argument REVERSE is non-nil, sort them in reverse order." t)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2017
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2018 (autoload 'rmail-sort-by-recipient "rmailsort"
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2019 "Sort messages of current Rmail file by recipient.
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2020 If prefix argument REVERSE is non-nil, sort them in reverse order." t)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2021
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2022 (autoload 'rmail-sort-by-correspondent "rmailsort"
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2023 "Sort messages of current Rmail file by other correspondent.
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2024 If prefix argument REVERSE is non-nil, sort them in reverse order." t)
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2025
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2026 (autoload 'rmail-sort-by-lines "rmailsort"
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2027 "Sort messages of current Rmail file by number of lines.
da9b565f9878 Add autoloads for rmailsort commands.
Richard M. Stallman <rms@gnu.org>
parents: 3864
diff changeset
2028 If prefix argument REVERSE is non-nil, sort them in reverse order." t)
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2029
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2030 ;;;; *** Rmail Summary Mode ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2031
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2032 (autoload 'rmail-summary "rmailsum"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2033 "Display a summary of all messages, one line per message."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2034 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2035
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2036 (autoload 'rmail-summary-by-labels "rmailsum"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2037 "Display a summary of all messages with one or more LABELS.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2038 LABELS should be a string containing the desired labels, separated by commas."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2039 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2040
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2041 (autoload 'rmail-summary-by-recipients "rmailsum"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2042 "Display a summary of all messages with the given RECIPIENTS.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2043 Normally checks the To, From and Cc fields of headers; but if PRIMARY-ONLY
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2044 is non-nil (prefix arg given), only look in the To and From fields.
2076
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2045 RECIPIENTS is a string of regexps separated by commas."
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2046 t)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2047
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2048 (autoload 'rmail-summary-by-regexp "rmailsum"
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2049 "Display a summary of all messages according to regexp REGEXP.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2050 If the regular expression is found in the header of the message
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2051 \(including in the date and other lines, as well as the subject line),
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2052 Emacs will list the header line in the RMAIL-summary."
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2053 t)
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2054
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2055 (autoload 'rmail-summary-by-topic "rmailsum"
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2056 "Display a summary of all messages with the given SUBJECT.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2057 Normally checks the Subject field of headers;
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2058 but if WHOLE-MESSAGE is non-nil (prefix arg given),
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2059 look in the whole message.
5140299129c3 (rmail-delete-forward): Go to summary buf to change D mark.
Richard M. Stallman <rms@gnu.org>
parents: 2006
diff changeset
2060 SUBJECT is a string of regexps separated by commas."
270
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2061 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2062
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2063 ;;;; *** Rmail output messages to files ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2064
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2065 (autoload 'rmail-output-to-rmail-file "rmailout"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2066 "Append the current message to an Rmail file named FILE-NAME.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2067 If the file does not exist, ask if it should be created.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2068 If file is being visited, the message is appended to the Emacs
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2069 buffer visiting that file."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2070 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2071
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2072 (autoload 'rmail-output "rmailout"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2073 "Append this message to Unix mail file named FILE-NAME."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2074 t)
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2075
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2076 ;;;; *** Rmail undigestification ***
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2077
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2078 (autoload 'undigestify-rmail-message "undigest"
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2079 "Break up a digest message into its constituent messages.
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2080 Leaves original message, deleted, before the undigestified messages."
f8d0e0ecd474 Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
2081 t)
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
2082
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
2083 (provide 'rmail)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 474
diff changeset
2084
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 621
diff changeset
2085 ;;; rmail.el ends here