/[emacs]/emacs/lisp/mail/mail-hist.el
ViewVC logotype

Diff of /emacs/lisp/mail/mail-hist.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.21.8.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 122  the message." Line 122  the message."
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
# Line 212  Optional argument CONTENTS is a string w Line 212  Optional argument CONTENTS is a string w
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
# Line 260  This function normally would be called w Line 260  This function normally would be called w
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    
# Line 283  its own independent history, as does the Line 283  its own independent history, as does the
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."

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.21.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26