|
0
|
1 ;;; Editing VM messages
|
|
98
|
2 ;;; Copyright (C) 1990, 1991, 1993, 1994, 1997 Kyle E. Jones
|
|
0
|
3 ;;;
|
|
|
4 ;;; This program is free software; you can redistribute it and/or modify
|
|
|
5 ;;; it under the terms of the GNU General Public License as published by
|
|
|
6 ;;; the Free Software Foundation; either version 1, or (at your option)
|
|
|
7 ;;; any later version.
|
|
|
8 ;;;
|
|
|
9 ;;; This program is distributed in the hope that it will be useful,
|
|
|
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
12 ;;; GNU General Public License for more details.
|
|
|
13 ;;;
|
|
|
14 ;;; You should have received a copy of the GNU General Public License
|
|
|
15 ;;; along with this program; if not, write to the Free Software
|
|
|
16 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
17
|
|
|
18 (provide 'vm-edit)
|
|
|
19
|
|
|
20 (defun vm-edit-message (&optional prefix-argument)
|
|
|
21 "Edit the current message. Prefix arg means mark as unedited instead.
|
|
|
22 If editing, the current message is copied into a temporary buffer, and
|
|
|
23 this buffer is selected for editing. The major mode of this buffer is
|
|
|
24 controlled by the variable vm-edit-message-mode. The hooks specified
|
|
|
25 in vm-edit-message-hook are run just prior to returning control to the user
|
|
|
26 for editing.
|
|
|
27
|
|
|
28 Use C-c ESC when you have finished editing the message. The message
|
|
|
29 will be inserted into its folder replacing the old version of the
|
|
|
30 message. If you don't want your edited version of the message to
|
|
|
31 replace the original, use C-c C-] and the edit will be aborted."
|
|
|
32 (interactive "P")
|
|
|
33 (vm-follow-summary-cursor)
|
|
|
34 (vm-select-folder-buffer)
|
|
|
35 (vm-check-for-killed-summary)
|
|
98
|
36 (vm-check-for-killed-presentation)
|
|
0
|
37 (vm-error-if-folder-read-only)
|
|
|
38 (vm-error-if-folder-empty)
|
|
|
39 (if (and (vm-virtual-message-p (car vm-message-pointer))
|
|
|
40 (null (vm-virtual-messages-of (car vm-message-pointer))))
|
|
|
41 (error "Can't edit unmirrored virtual messages."))
|
|
|
42 (if prefix-argument
|
|
|
43 (if (vm-edited-flag (car vm-message-pointer))
|
|
|
44 (progn
|
|
|
45 (vm-set-edited-flag-of (car vm-message-pointer) nil)
|
|
|
46 (vm-update-summary-and-mode-line)))
|
|
|
47 (let ((mp vm-message-pointer)
|
|
98
|
48 (offset (save-excursion
|
|
|
49 (if vm-presentation-buffer
|
|
|
50 (set-buffer vm-presentation-buffer))
|
|
|
51 (- (point) (vm-headers-of (car vm-message-pointer)))))
|
|
0
|
52 (edit-buf (vm-edit-buffer-of (car vm-message-pointer)))
|
|
|
53 (folder-buffer (current-buffer)))
|
|
|
54 (if (not (and edit-buf (buffer-name edit-buf)))
|
|
|
55 (progn
|
|
|
56 (vm-save-restriction
|
|
|
57 (widen)
|
|
|
58 (setq edit-buf
|
|
|
59 (generate-new-buffer
|
|
|
60 (format "edit of %s's note re: %s"
|
|
|
61 (vm-su-full-name (car vm-message-pointer))
|
|
|
62 (vm-su-subject (car vm-message-pointer)))))
|
|
|
63 (vm-set-edit-buffer-of (car mp) edit-buf)
|
|
|
64 (copy-to-buffer edit-buf
|
|
|
65 (vm-headers-of (car mp))
|
|
|
66 (vm-text-end-of (car mp))))
|
|
|
67 (set-buffer edit-buf)
|
|
|
68 (set-buffer-modified-p nil)
|
|
|
69 (goto-char (point-min))
|
|
|
70 (if (< offset 0)
|
|
|
71 (search-forward "\n\n" nil t)
|
|
|
72 (forward-char offset))
|
|
|
73 (funcall (or vm-edit-message-mode 'text-mode))
|
|
|
74 (use-local-map vm-edit-message-map)
|
|
|
75 ;; (list (car mp)) because a different message may
|
|
|
76 ;; later be stuffed into a cons linked that is linked
|
|
|
77 ;; into the folder's message list.
|
|
|
78 (setq vm-message-pointer (list (car mp))
|
|
|
79 vm-mail-buffer folder-buffer
|
|
|
80 vm-system-state 'editing)
|
|
|
81 (run-hooks 'vm-edit-message-hook)
|
|
|
82 (message
|
|
|
83 (substitute-command-keys
|
|
|
84 "Type \\[vm-edit-message-end] to end edit, \\[vm-edit-message-abort] to abort with no change.")))
|
|
|
85 (set-buffer edit-buf))
|
|
70
|
86 (if (and vm-frame-per-edit (vm-multiple-frames-possible-p))
|
|
0
|
87 (let ((w (vm-get-buffer-window edit-buf)))
|
|
|
88 (if (null w)
|
|
|
89 (progn
|
|
|
90 (vm-goto-new-frame 'edit)
|
|
|
91 (vm-set-hooks-for-frame-deletion))
|
|
|
92 (save-excursion
|
|
|
93 (select-window w)
|
|
|
94 (and vm-warp-mouse-to-new-frame
|
|
|
95 (vm-warp-mouse-to-frame-maybe (vm-window-frame w)))))))
|
|
|
96 (vm-display edit-buf t '(vm-edit-message vm-edit-message-other-frame)
|
|
|
97 (list this-command 'editing-message)))))
|
|
|
98
|
|
|
99 (defun vm-edit-message-other-frame (&optional prefix)
|
|
|
100 "Like vm-edit-message, but run in a newly created frame."
|
|
|
101 (interactive "P")
|
|
|
102 (if (vm-multiple-frames-possible-p)
|
|
|
103 (vm-goto-new-frame 'edit))
|
|
|
104 (let ((vm-search-other-frames nil)
|
|
|
105 (vm-frame-per-edit nil))
|
|
|
106 (vm-edit-message prefix))
|
|
|
107 (if (vm-multiple-frames-possible-p)
|
|
|
108 (vm-set-hooks-for-frame-deletion)))
|
|
|
109
|
|
|
110 (defun vm-discard-cached-data (&optional count)
|
|
|
111 "Discard cached information about the current message.
|
|
|
112 When VM gathers information from the headers of a message, it stores it
|
|
|
113 internally for future reference. This command causes VM to forget this
|
|
|
114 information, and VM will be forced to search the headers of the message
|
|
|
115 again for these data. VM will also have to decide again which headers
|
|
|
116 should be displayed and which should not. Therefore this command is
|
|
|
117 useful if you change the value of vm-visible-headers or
|
|
|
118 vm-invisible-header-regexp in the midst of a VM session.
|
|
|
119
|
|
|
120 Numeric prefix argument N means to discard data from the current message
|
|
|
121 plus the next N-1 messages. A negative N means discard data from the
|
|
|
122 current message and the previous N-1 messages.
|
|
|
123
|
|
|
124 When invoked on marked messages (via vm-next-command-uses-marks),
|
|
|
125 data is discarded only from the marked messages in the current folder."
|
|
|
126 (interactive "p")
|
|
|
127 (or count (setq count 1))
|
|
|
128 (vm-follow-summary-cursor)
|
|
|
129 (vm-select-folder-buffer)
|
|
|
130 (vm-check-for-killed-summary)
|
|
98
|
131 (vm-check-for-killed-presentation)
|
|
0
|
132 (vm-error-if-folder-empty)
|
|
|
133 (let ((mlist (vm-select-marked-or-prefixed-messages count)) m)
|
|
|
134 (while mlist
|
|
|
135 (setq m (vm-real-message-of (car mlist)))
|
|
|
136 (if vm-thread-obarray
|
|
|
137 (vm-unthread-message m t))
|
|
|
138 (fillarray (vm-cache-of m) nil)
|
|
|
139 (vm-set-vheaders-of m nil)
|
|
|
140 (vm-set-vheaders-regexp-of m nil)
|
|
|
141 (vm-set-text-of m nil)
|
|
98
|
142 (vm-set-mime-layout-of m nil)
|
|
|
143 (if (and vm-presentation-buffer (eq (car vm-message-pointer) m))
|
|
|
144 (save-excursion (vm-preview-current-message)))
|
|
0
|
145 (if vm-thread-obarray
|
|
|
146 (vm-build-threads (list m)))
|
|
|
147 (if vm-summary-show-threads
|
|
|
148 (vm-sort-messages "thread"))
|
|
|
149 (let ((v-list (vm-virtual-messages-of m)))
|
|
|
150 (save-excursion
|
|
|
151 (while v-list
|
|
|
152 (set-buffer (vm-buffer-of (car v-list)))
|
|
98
|
153 (if (and vm-presentation-buffer
|
|
|
154 (eq (car vm-message-pointer) (car v-list)))
|
|
|
155 (save-excursion (vm-preview-current-message)))
|
|
0
|
156 (if vm-thread-obarray
|
|
|
157 (vm-build-threads (list (car v-list))))
|
|
|
158 (if vm-summary-show-threads
|
|
|
159 (vm-sort-messages "thread"))
|
|
|
160 (setq v-list (cdr v-list)))))
|
|
|
161 (vm-mark-for-summary-update m)
|
|
|
162 (setq mlist (cdr mlist))))
|
|
|
163 (vm-display nil nil '(vm-discard-cached-data) '(vm-discard-cached-data))
|
|
|
164 (vm-update-summary-and-mode-line))
|
|
|
165
|
|
|
166 (defun vm-edit-message-end ()
|
|
|
167 "End the edit of a message and copy the result to its folder."
|
|
|
168 (interactive)
|
|
|
169 (if (null vm-message-pointer)
|
|
|
170 (error "This is not a VM message edit buffer."))
|
|
|
171 (if (null (buffer-name (vm-buffer-of (car vm-message-pointer))))
|
|
|
172 (error "The folder buffer for this message has been killed."))
|
|
|
173 ;; make sure the message ends with a newline
|
|
|
174 (goto-char (point-max))
|
|
|
175 (and (/= (preceding-char) ?\n) (insert ?\n))
|
|
|
176 ;; munge message separators found in the edited message to
|
|
|
177 ;; prevent message from being split into several messages.
|
|
|
178 (vm-munge-message-separators (vm-message-type-of (car vm-message-pointer))
|
|
|
179 (point-min) (point-max))
|
|
|
180 ;; for From_-with-Content-Length recompute the Content-Length header
|
|
|
181 (if (eq (vm-message-type-of (car vm-message-pointer))
|
|
|
182 'From_-with-Content-Length)
|
|
|
183 (let ((buffer-read-only nil)
|
|
|
184 length)
|
|
|
185 (goto-char (point-min))
|
|
|
186 ;; first delete all copies of Content-Length
|
|
|
187 (while (and (re-search-forward vm-content-length-search-regexp nil t)
|
|
|
188 (null (match-beginning 1))
|
|
|
189 (progn (goto-char (match-beginning 0))
|
|
|
190 (vm-match-header vm-content-length-header)))
|
|
|
191 (delete-region (vm-matched-header-start) (vm-matched-header-end)))
|
|
|
192 ;; now compute the message body length
|
|
|
193 (goto-char (point-min))
|
|
|
194 (search-forward "\n\n" nil 0)
|
|
|
195 (setq length (- (point-max) (point)))
|
|
|
196 ;; insert the header
|
|
|
197 (goto-char (point-min))
|
|
|
198 (insert vm-content-length-header " " (int-to-string length) "\n")))
|
|
|
199 (let ((edit-buf (current-buffer))
|
|
|
200 (mp vm-message-pointer))
|
|
|
201 (if (buffer-modified-p)
|
|
|
202 (progn
|
|
|
203 (widen)
|
|
|
204 (save-excursion
|
|
|
205 (set-buffer (vm-buffer-of (vm-real-message-of (car mp))))
|
|
|
206 (if (not (memq (vm-real-message-of (car mp)) vm-message-list))
|
|
|
207 (error "The original copy of this message has been expunged."))
|
|
|
208 (vm-save-restriction
|
|
|
209 (widen)
|
|
|
210 (goto-char (vm-headers-of (vm-real-message-of (car mp))))
|
|
|
211 (let ((vm-message-pointer mp)
|
|
|
212 opoint
|
|
|
213 (buffer-read-only nil))
|
|
|
214 (setq opoint (point))
|
|
|
215 (insert-buffer-substring edit-buf)
|
|
|
216 (delete-region
|
|
|
217 (point) (vm-text-end-of (vm-real-message-of (car mp))))
|
|
|
218 (vm-discard-cached-data))
|
|
|
219 (vm-set-edited-flag-of (car mp) t)
|
|
|
220 (vm-set-edit-buffer-of (car mp) nil))
|
|
|
221 (set-buffer (vm-buffer-of (car mp)))
|
|
|
222 (if (eq (vm-real-message-of (car mp))
|
|
|
223 (vm-real-message-of (car vm-message-pointer)))
|
|
|
224 (vm-preview-current-message)
|
|
|
225 (vm-update-summary-and-mode-line))))
|
|
|
226 (message "No change."))
|
|
|
227 (vm-display edit-buf nil '(vm-edit-message-end)
|
|
|
228 '(vm-edit-message-end reading-message startup))
|
|
|
229 (set-buffer-modified-p nil)
|
|
|
230 (kill-buffer edit-buf)))
|
|
|
231
|
|
|
232 (defun vm-edit-message-abort ()
|
|
|
233 "Abort the edit of a message, forgetting changes to the message."
|
|
|
234 (interactive)
|
|
|
235 (if (null vm-message-pointer)
|
|
|
236 (error "This is not a VM message edit buffer."))
|
|
|
237 (if (null (buffer-name (vm-buffer-of (vm-real-message-of (car vm-message-pointer)))))
|
|
|
238 (error "The folder buffer for this message has been killed."))
|
|
|
239 (vm-set-edit-buffer-of (car vm-message-pointer) nil)
|
|
|
240 (vm-display (current-buffer) nil
|
|
|
241 '(vm-edit-message-abort)
|
|
|
242 '(vm-edit-message-abort reading-message startup))
|
|
|
243 (set-buffer-modified-p nil)
|
|
|
244 (kill-buffer (current-buffer))
|
|
|
245 (message "Aborted, no change."))
|
