122 |
(defsubst mail-hist-forward-header (count) |
(defsubst mail-hist-forward-header (count) |
123 |
"Move forward COUNT headers (backward if COUNT is negative). |
"Move forward COUNT headers (backward if COUNT is negative). |
124 |
If last/first header is encountered first, stop there and returns |
If last/first header is encountered first, stop there and returns |
125 |
nil. |
nil. |
126 |
|
|
127 |
Places point on the first non-whitespace on the line following the |
Places point on the first non-whitespace on the line following the |
128 |
colon after the header name, or on the second space following that if |
colon after the header name, or on the second space following that if |
212 |
|
|
213 |
;;;###autoload |
;;;###autoload |
214 |
(defun mail-hist-put-headers-into-history () |
(defun mail-hist-put-headers-into-history () |
215 |
"Put headers and contents of this message into mail header history. |
"Put headers and contents of this message into mail header history. |
216 |
Each header has its own independent history, as does the body of the |
Each header has its own independent history, as does the body of the |
217 |
message. |
message. |
218 |
|
|
219 |
This function normally would be called when the message is sent." |
This function normally would be called when the message is sent." |
220 |
(and |
(and |
221 |
mail-hist-keep-history |
mail-hist-keep-history |
222 |
(save-excursion |
(save-excursion |
260 |
;; bottom is often just the same quoted history for every |
;; bottom is often just the same quoted history for every |
261 |
;; message in the thread, differing only in indentation |
;; message in the thread, differing only in indentation |
262 |
;; level. |
;; level. |
263 |
(if (string-equal header "body") |
(if (string-equal header "body") |
264 |
(goto-char start))) |
(goto-char start))) |
265 |
)))) |
)))) |
266 |
|
|
283 |
|
|
284 |
Although you can do so, it does not make much sense to call this |
Although you can do so, it does not make much sense to call this |
285 |
without having called `mail-hist-previous-header' first |
without having called `mail-hist-previous-header' first |
286 |
(\\[mail-hist-previous-header]). |
\(\\[mail-hist-previous-header]). |
287 |
|
|
288 |
The history only contains the contents of outgoing messages, not |
The history only contains the contents of outgoing messages, not |
289 |
received mail." |
received mail." |