Mercurial > emacs
annotate lisp/mail/rmailout.el @ 8201:686198604dc7
Update finder-inf.el.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 11 Jul 1994 20:29:09 +0000 |
parents | 22a4985ddad3 |
children | 964b419c227a |
rev | line source |
---|---|
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
202
diff
changeset
|
1 ;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file. |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
202
diff
changeset
|
2 |
7298 | 3 ;; Copyright (C) 1985, 1987, 1993, 1994 Free Software Foundation, Inc. |
845 | 4 |
788
c8d4eb38ebfc
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
713
diff
changeset
|
5 ;; Maintainer: FSF |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Keywords: mail |
788
c8d4eb38ebfc
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
713
diff
changeset
|
7 |
63 | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
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:
788
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
63 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
23 | |
788
c8d4eb38ebfc
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
713
diff
changeset
|
24 ;;; Code: |
63 | 25 |
5859
84ad3a2c5373
Add (require 'rmail) so the macro will be byte-compiled properly.
Karl Heuer <kwzh@gnu.org>
parents:
5802
diff
changeset
|
26 (require 'rmail) |
84ad3a2c5373
Add (require 'rmail) so the macro will be byte-compiled properly.
Karl Heuer <kwzh@gnu.org>
parents:
5802
diff
changeset
|
27 |
63 | 28 ;; Temporary until Emacs always has this variable. |
29 (defvar rmail-delete-after-output nil | |
30 "*Non-nil means automatically delete a message that is copied to a file.") | |
31 | |
145 | 32 (defvar rmail-output-file-alist nil |
33 "*Alist matching regexps to suggested output Rmail files. | |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
34 This is a list of elements of the form (REGEXP . NAME-EXP). |
4851
b70799eabd57
(rmail-output-file-alist): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
4836
diff
changeset
|
35 The suggestion is taken if REGEXP matches anywhere in the message buffer. |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
36 NAME-EXP may be a string constant giving the file name to use, |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
37 or more generally it may be any kind of expression that returns |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
38 a file name as a string.") |
145 | 39 |
6407
0ccccd01dc8f
(rmail-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
5859
diff
changeset
|
40 (defun rmail-output-menu (event) |
7320
f44f181c3748
(rmail-output-menu): Don't call expand-file-name.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
41 "Output current message to another Rmail file, chosen with a menu. |
7332
e30a34bfc536
(rmail-output-menu): Set rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
7320
diff
changeset
|
42 Also set the default for subsequent \\[rmail-output-to-rmail-file] commands. |
7320
f44f181c3748
(rmail-output-menu): Don't call expand-file-name.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
43 The variables `rmail-secondary-file-directory' and |
f44f181c3748
(rmail-output-menu): Don't call expand-file-name.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
44 `rmail-secondary-file-regexp' control which files are offered in the menu." |
6407
0ccccd01dc8f
(rmail-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
5859
diff
changeset
|
45 (interactive "e") |
7320
f44f181c3748
(rmail-output-menu): Don't call expand-file-name.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
46 (let ((file-name (rmail-secondary-file-menu event))) |
f44f181c3748
(rmail-output-menu): Don't call expand-file-name.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
47 (if file-name |
7332
e30a34bfc536
(rmail-output-menu): Set rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
7320
diff
changeset
|
48 (rmail-output-to-rmail-file |
e30a34bfc536
(rmail-output-menu): Set rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
7320
diff
changeset
|
49 (setq rmail-default-rmail-file file-name))))) |
6407
0ccccd01dc8f
(rmail-output-menu): New command.
Richard M. Stallman <rms@gnu.org>
parents:
5859
diff
changeset
|
50 |
1866
a712cff3b6e7
* rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse
Jim Blandy <jimb@redhat.com>
parents:
1460
diff
changeset
|
51 ;;; There are functions elsewhere in Emacs that use this function; check |
a712cff3b6e7
* rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse
Jim Blandy <jimb@redhat.com>
parents:
1460
diff
changeset
|
52 ;;; them out before you change the calling method. |
a712cff3b6e7
* rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse
Jim Blandy <jimb@redhat.com>
parents:
1460
diff
changeset
|
53 (defun rmail-output-to-rmail-file (file-name &optional count) |
63 | 54 "Append the current message to an Rmail file named FILE-NAME. |
55 If the file does not exist, ask if it should be created. | |
56 If file is being visited, the message is appended to the Emacs | |
57 buffer visiting that file. | |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
58 If the file exists and is not an Rmail file, |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
59 the message is appended in inbox format. |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
60 |
7332
e30a34bfc536
(rmail-output-menu): Set rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
7320
diff
changeset
|
61 The default file name comes from `rmail-default-rmail-file', |
5592 | 62 which is updated to the name you use in this command. |
63 | |
63 | 64 A prefix argument N says to output N consecutive messages |
65 starting with the current one. Deleted messages are skipped and don't count." | |
3657
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
66 (interactive |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
67 (let ((default-file |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
68 (let (answer tail) |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
69 (setq tail rmail-output-file-alist) |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
70 ;; Suggest a file based on a pattern match. |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
71 (while (and tail (not answer)) |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
72 (save-excursion |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
73 (goto-char (point-min)) |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
74 (if (re-search-forward (car (car tail)) nil t) |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
75 (setq answer (eval (cdr (car tail))))) |
3657
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
76 (setq tail (cdr tail)))) |
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
77 ;; If not suggestions, use same file as last time. |
5590
1d9fabec8bec
Use new names rmail-default-file and rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
5399
diff
changeset
|
78 (or answer rmail-default-rmail-file)))) |
1d9fabec8bec
Use new names rmail-default-file and rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
5399
diff
changeset
|
79 (list (setq rmail-default-rmail-file |
5399
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
80 (let ((read-file |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
81 (read-file-name |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
82 (concat "Output message to Rmail file: (default " |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
83 (file-name-nondirectory default-file) |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
84 ") ") |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
85 (file-name-directory default-file) |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
86 default-file))) |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
87 (if (file-directory-p read-file) |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
88 (expand-file-name (file-name-nondirectory default-file) |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
89 read-file) |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
90 (expand-file-name |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
91 (or read-file default-file) |
67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
Richard M. Stallman <rms@gnu.org>
parents:
5331
diff
changeset
|
92 (file-name-directory default-file))))) |
3657
7503a402c721
(rmail-output-to-rmail-file): Use the smart default in the prompt.
Richard M. Stallman <rms@gnu.org>
parents:
2717
diff
changeset
|
93 (prefix-numeric-value current-prefix-arg)))) |
1866
a712cff3b6e7
* rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse
Jim Blandy <jimb@redhat.com>
parents:
1460
diff
changeset
|
94 (or count (setq count 1)) |
202 | 95 (setq file-name |
96 (expand-file-name file-name | |
5590
1d9fabec8bec
Use new names rmail-default-file and rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
5399
diff
changeset
|
97 (file-name-directory rmail-default-rmail-file))) |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
98 (if (and (file-readable-p file-name) (not (rmail-file-p file-name))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
99 (rmail-output file-name count) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
100 (rmail-maybe-set-message-counters) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
101 (setq file-name (abbreviate-file-name file-name)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
102 (or (get-file-buffer file-name) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
103 (file-exists-p file-name) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
104 (if (yes-or-no-p |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
105 (concat "\"" file-name "\" does not exist, create it? ")) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
106 (let ((file-buffer (create-file-buffer file-name))) |
63 | 107 (save-excursion |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
108 (set-buffer file-buffer) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
109 (rmail-insert-rmail-file-header) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
110 (let ((require-final-newline nil)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
111 (write-region (point-min) (point-max) file-name t 1))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
112 (kill-buffer file-buffer)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
113 (error "Output file does not exist"))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
114 (while (> count 0) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
115 (let (redelete) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
116 (unwind-protect |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
117 (progn |
5278
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
118 ;; Temporarily turn off Deleted attribute. |
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
119 ;; Do this outside the save-restriction, since it would |
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
120 ;; shift the place in the buffer where the visible text starts. |
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
121 (if (rmail-message-deleted-p rmail-current-message) |
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
122 (progn (setq redelete t) |
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
123 (rmail-set-attribute "deleted" nil))) |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
124 (save-restriction |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
125 (widen) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
126 ;; Decide whether to append to a file or to an Emacs buffer. |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
127 (save-excursion |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
128 (let ((buf (get-file-buffer file-name)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
129 (cur (current-buffer)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
130 (beg (1+ (rmail-msgbeg rmail-current-message))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
131 (end (1+ (rmail-msgend rmail-current-message)))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
132 (if (not buf) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
133 (append-to-file beg end file-name) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
134 (if (eq buf (current-buffer)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
135 (error "Can't output message to same file it's already in")) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
136 ;; File has been visited, in buffer BUF. |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
137 (set-buffer buf) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
138 (let ((buffer-read-only nil) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
139 (msg (and (boundp 'rmail-current-message) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
140 rmail-current-message))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
141 ;; If MSG is non-nil, buffer is in RMAIL mode. |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
142 (if msg |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
143 (progn |
5331
a74ffe260236
(rmail-output-to-rmail-file): When copying to a buffer,
Richard M. Stallman <rms@gnu.org>
parents:
5278
diff
changeset
|
144 ;; Turn on auto save mode, if it's off in this |
a74ffe260236
(rmail-output-to-rmail-file): When copying to a buffer,
Richard M. Stallman <rms@gnu.org>
parents:
5278
diff
changeset
|
145 ;; buffer but enabled by default. |
a74ffe260236
(rmail-output-to-rmail-file): When copying to a buffer,
Richard M. Stallman <rms@gnu.org>
parents:
5278
diff
changeset
|
146 (and (not buffer-auto-save-file-name) |
a74ffe260236
(rmail-output-to-rmail-file): When copying to a buffer,
Richard M. Stallman <rms@gnu.org>
parents:
5278
diff
changeset
|
147 auto-save-default |
a74ffe260236
(rmail-output-to-rmail-file): When copying to a buffer,
Richard M. Stallman <rms@gnu.org>
parents:
5278
diff
changeset
|
148 (auto-save-mode t)) |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
149 (rmail-maybe-set-message-counters) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
150 (widen) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
151 (narrow-to-region (point-max) (point-max)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
152 (insert-buffer-substring cur beg end) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
153 (goto-char (point-min)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
154 (widen) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
155 (search-backward "\n\^_") |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
156 (narrow-to-region (point) (point-max)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
157 (rmail-count-new-messages t) |
5278
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
158 (if (rmail-summary-exists) |
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
159 (rmail-select-summary |
92268e08c166
(rmail-output-to-rmail-file): Call rmail-update-summary.
Richard M. Stallman <rms@gnu.org>
parents:
5051
diff
changeset
|
160 (rmail-update-summary))) |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
161 (rmail-show-message msg)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
162 ;; Output file not in rmail mode => just insert at the end. |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
163 (narrow-to-region (point-min) (1+ (buffer-size))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
164 (goto-char (point-max)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
165 (insert-buffer-substring cur beg end))))))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
166 (rmail-set-attribute "filed" t)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
167 (if redelete (rmail-set-attribute "deleted" t)))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
168 (setq count (1- count)) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
169 (if rmail-delete-after-output |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
170 (rmail-delete-forward) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
171 (if (> count 0) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
172 (rmail-next-undeleted-message 1)))))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
173 |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
174 ;; Returns t if file FILE is an Rmail file. |
5051
26abd5d13762
(rmail-file-p): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
5011
diff
changeset
|
175 ;;;###autoload |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
176 (defun rmail-file-p (file) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
177 (let ((buf (generate-new-buffer " *rmail-file-p*"))) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
178 (unwind-protect |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
179 (save-excursion |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
180 (set-buffer buf) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
181 (insert-file-contents file nil 0 100) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
182 (looking-at "BABYL OPTIONS:")) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
183 (kill-buffer buf)))) |
63 | 184 |
1866
a712cff3b6e7
* rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse
Jim Blandy <jimb@redhat.com>
parents:
1460
diff
changeset
|
185 ;;; There are functions elsewhere in Emacs that use this function; check |
a712cff3b6e7
* rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse
Jim Blandy <jimb@redhat.com>
parents:
1460
diff
changeset
|
186 ;;; them out before you change the calling method. |
5011
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
187 (defun rmail-output (file-name &optional count noattribute from-gnus) |
6651 | 188 "Append this message to system-inbox-format mail file named FILE-NAME. |
63 | 189 A prefix argument N says to output N consecutive messages |
1866
a712cff3b6e7
* rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse
Jim Blandy <jimb@redhat.com>
parents:
1460
diff
changeset
|
190 starting with the current one. Deleted messages are skipped and don't count. |
4265
2812d8619305
(rmail-output): New arg NOATTRIBUTE.
Richard M. Stallman <rms@gnu.org>
parents:
4264
diff
changeset
|
191 When called from lisp code, N may be omitted. |
2812d8619305
(rmail-output): New arg NOATTRIBUTE.
Richard M. Stallman <rms@gnu.org>
parents:
4264
diff
changeset
|
192 |
4836
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
193 If the pruned message header is shown on the current message, then |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
194 messages will be appended with pruned headers; otherwise, messages |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
195 will be appended with their original headers. |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
196 |
7561
22a4985ddad3
(rmail-output): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7332
diff
changeset
|
197 The default file name comes from `rmail-default-file', |
5592 | 198 which is updated to the name you use in this command. |
199 | |
4265
2812d8619305
(rmail-output): New arg NOATTRIBUTE.
Richard M. Stallman <rms@gnu.org>
parents:
4264
diff
changeset
|
200 The optional third argument NOATTRIBUTE, if non-nil, says not |
5011
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
201 to set the `filed' attribute, and not to display a message. |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
202 |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
203 The optional fourth argument FROM-GNUS is set when called from GNUS." |
63 | 204 (interactive |
5802
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
205 (let ((default-file |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
206 (let (answer tail) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
207 (setq tail rmail-output-file-alist) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
208 ;; Suggest a file based on a pattern match. |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
209 (while (and tail (not answer)) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
210 (save-excursion |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
211 (goto-char (point-min)) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
212 (if (re-search-forward (car (car tail)) nil t) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
213 (setq answer (eval (cdr (car tail))))) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
214 (setq tail (cdr tail)))) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
215 ;; If not suggestions, use same file as last time. |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
216 (or answer rmail-default-file)))) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
217 (list (setq rmail-default-file |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
218 (let ((read-file |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
219 (read-file-name |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
220 (concat "Output message to Unix mail file: (default " |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
221 (file-name-nondirectory default-file) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
222 ") ") |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
223 (file-name-directory default-file) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
224 default-file))) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
225 (if (file-directory-p read-file) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
226 (expand-file-name (file-name-nondirectory default-file) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
227 read-file) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
228 (expand-file-name |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
229 (or read-file default-file) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
230 (file-name-directory default-file))))) |
3db75b13c7f5
(rmail-output): Handle rmail-output-file-alist.
Richard M. Stallman <rms@gnu.org>
parents:
5592
diff
changeset
|
231 (prefix-numeric-value current-prefix-arg)))) |
1866
a712cff3b6e7
* rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse
Jim Blandy <jimb@redhat.com>
parents:
1460
diff
changeset
|
232 (or count (setq count 1)) |
202 | 233 (setq file-name |
234 (expand-file-name file-name | |
5590
1d9fabec8bec
Use new names rmail-default-file and rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
5399
diff
changeset
|
235 (and rmail-default-file |
1d9fabec8bec
Use new names rmail-default-file and rmail-default-rmail-file.
Richard M. Stallman <rms@gnu.org>
parents:
5399
diff
changeset
|
236 (file-name-directory rmail-default-file)))) |
4058
af785cbe489a
Fix typos in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
4056
diff
changeset
|
237 (if (and (file-readable-p file-name) (rmail-file-p file-name)) |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
238 (rmail-output-to-rmail-file file-name count) |
4836
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
239 (let ((orig-count count) |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
240 (rmailbuf (current-buffer)) |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
241 (case-fold-search t) |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
242 (tembuf (get-buffer-create " rmail-output")) |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
243 (original-headers-p |
5011
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
244 (and (not from-gnus) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
245 (save-excursion |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
246 (save-restriction |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
247 (narrow-to-region (rmail-msgbeg rmail-current-message) (point-max)) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
248 (goto-char (point-min)) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
249 (forward-line 1) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
250 (= (following-char) ?0))))) |
4836
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
251 header-beginning |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
252 mail-from) |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
253 (while (> count 0) |
5011
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
254 (or from-gnus |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
255 (setq mail-from |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
256 (save-excursion |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
257 (save-restriction |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
258 (widen) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
259 (goto-char (rmail-msgbeg rmail-current-message)) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
260 (setq header-beginning (point)) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
261 (search-forward "\n*** EOOH ***\n") |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
262 (narrow-to-region header-beginning (point)) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
263 (mail-fetch-field "Mail-From"))))) |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
264 (save-excursion |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
265 (set-buffer tembuf) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
266 (erase-buffer) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
267 (insert-buffer-substring rmailbuf) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
268 (insert "\n") |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
269 (goto-char (point-min)) |
4836
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
270 (if mail-from |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
271 (insert mail-from "\n") |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
272 (insert "From " |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
273 (mail-strip-quoted-names (or (mail-fetch-field "from") |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
274 (mail-fetch-field "really-from") |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
275 (mail-fetch-field "sender") |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
276 "unknown")) |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
277 " " (current-time-string) "\n")) |
4056
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
278 ;; ``Quote'' "\nFrom " as "\n>From " |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
279 ;; (note that this isn't really quoting, as there is no requirement |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
280 ;; that "\n[>]+From " be quoted in the same transparent way.) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
281 (while (search-forward "\nFrom " nil t) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
282 (forward-char -5) |
419e92a78e6f
(rmail-output): If file is an Rmail file,
Richard M. Stallman <rms@gnu.org>
parents:
3832
diff
changeset
|
283 (insert ?>)) |
4265
2812d8619305
(rmail-output): New arg NOATTRIBUTE.
Richard M. Stallman <rms@gnu.org>
parents:
4264
diff
changeset
|
284 (write-region (point-min) (point-max) file-name t |
2812d8619305
(rmail-output): New arg NOATTRIBUTE.
Richard M. Stallman <rms@gnu.org>
parents:
4264
diff
changeset
|
285 (if noattribute 'nomsg))) |
4836
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
286 (or noattribute |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
287 (if (equal major-mode 'rmail-mode) |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
288 (rmail-set-attribute "filed" t))) |
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
289 (setq count (1- count)) |
5011
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
290 (or from-gnus |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
291 (let ((next-message-p |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
292 (if rmail-delete-after-output |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
293 (rmail-delete-forward) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
294 (if (> count 0) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
295 (rmail-next-undeleted-message 1)))) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
296 (num-appended (- orig-count count))) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
297 (if (and next-message-p original-headers-p) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
298 (rmail-toggle-header)) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
299 (if (and (> count 0) (not next-message-p)) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
300 (progn |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
301 (error |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
302 (save-excursion |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
303 (set-buffer rmailbuf) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
304 (format "Only %d message%s appended" num-appended |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
305 (if (= num-appended 1) "" "s")))) |
22c7b341d536
(rmail-output): New argument FROM-GNUS.
Richard M. Stallman <rms@gnu.org>
parents:
4851
diff
changeset
|
306 (setq count 0)))))) |
4836
38a0f0209707
(rmail-output): If message was shown with full headers,
Richard M. Stallman <rms@gnu.org>
parents:
4265
diff
changeset
|
307 (kill-buffer tembuf)))) |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
202
diff
changeset
|
308 |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
202
diff
changeset
|
309 ;;; rmailout.el ends here |