Added -clobber switch to mhstore(1) [Bug #11160].
[mmh] / docs / historical / mh-6.8.5 / miscellany / mhe / mh-annot.ml
1 ;  This autoloaded file implementes the (annotate) function of mhe
2
3 ;  Insert into the current buffer, at the current cursor position,
4 ;  a message header annotation like "Replied: <<26-Apr-82 09:22>>"
5 ;  Argument 1 is the annotation field string, e.g. "Replied".
6 ;  Argument 2 is an annotation comment field, to be put before the date
7 (defun 
8     (annotate
9         (save-excursion 
10             (temp-use-buffer "message")
11             (beginning-of-file)
12             (insert-string 
13                 (concat (arg 1) ": "
14                         (if (> (nargs) 1)
15                             (concat (arg 2) " ")
16                             "")
17                         (arpa-fmt-date)
18                         "\n")
19             )
20             (write-current-file)
21             (temp-use-buffer (concat "+" mh-folder))
22             (beginning-of-line)
23             (goto-character (+ (dot) 4))
24             (delete-next-character)
25             (insert-character (string-to-char (arg 1)))
26             (setq buffer-is-modified 0)
27         )
28     )
29     (arpa-fmt-date cd
30         (setq cd (current-time)); "Mon Apr 26 09:13:37 1982"
31         (concat 
32                 (substr cd 9 2) " "
33                 (substr cd 5 3) " "
34                 (substr cd -2 2) " "
35                 (substr cd 12 5)
36         )
37     )
38 )