Return to mh-annot.ml CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe

Annotation of 43BSD/contrib/mh/miscellany/mhe/mh-annot.ml, revision 1.1.1.1

1.1       root        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: )

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.