Return to mh-forw.ml CVS log

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

Annotation of 43BSD/contrib/mh/miscellany/mhe/mh-forw.ml, revision 1.1

1.1     ! root        1: ;  This autoloaded file implements the "f" command of mhe
        !             2: (defun 
        !             3:     (&mh-forw actn exfl sm annotate fn
        !             4:        (save-window-excursion 
        !             5:            (progn
        !             6:                  (message  "Forwarding message " (&mh-get-msgnum) "...")
        !             7:                  (sit-for 0)
        !             8:                  (&mh-save-killbuffer)
        !             9:                  (pop-to-buffer (concat "+" mh-folder))
        !            10:                  (setq sm mode-line-format)
        !            11:                  (delete-other-windows)
        !            12:                  (setq annotate mh-annotate)
        !            13:                  (setq fn (&mh-get-fname))
        !            14:                  (pop-to-buffer "draft")
        !            15:                  (erase-buffer)
        !            16:                  (insert-string "One moment, please...")
        !            17:                  (unlink-file (concat mh-path "/draft"))
        !            18:                  (send-to-shell 
        !            19:                      (concat mh-progs "/forw -build +" mh-folder " "
        !            20:                              (&mh-get-msgnum))
        !            21:                  )
        !            22:                  (show-shell-errors)
        !            23:                  (read-file (concat mh-path "/draft"))
        !            24:                  (local-bind-to-key "exit-emacs" "\\")
        !            25:                  (mail-mode) (header-line-position)
        !            26:                  (sit-for 0) (setq exfl 0)
        !            27:                  (while (= exfl 0)
        !            28:                         (error-occured
        !            29:                             (save-window-excursion
        !            30:                                 (pop-to-buffer (concat "+" mh-folder))
        !            31:                                 (setq mode-line-format
        !            32:                                       "{%b}    ^X^C exits to top level")
        !            33:                                 (pop-to-buffer "draft")
        !            34:                                 (setq mode-line-format
        !            35:                                       (concat "{%b}    %[%p of "
        !            36:                                               mh-path "/draft%]        "
        !            37:                                               "^X^C exits to top level"))
        !            38:                                 (&mh-restore-killbuffer)
        !            39:                                 (recursive-edit)
        !            40:                                 (setq mode-line-format
        !            41:                                       (concat "{%b}    %[%p of "
        !            42:                                               mh-path "/draft%]"))
        !            43:                                 (pop-to-buffer (concat "+" mh-folder))
        !            44:                                 (setq mode-line-format " ")
        !            45:                             )
        !            46:                         )
        !            47:                         (setq actn (get-response "Ready to send. Action? (m, q, e, or ?) " "mMqQeE\" 
        !            48:                                        "m: mail it, q: quit, e: resume editing, ?: this msg."))
        !            49:                         (if (= actn 'm')
        !            50:                             (progn (message "Sending...") (sit-for 0)
        !            51:                                    (write-current-file)
        !            52:                                    (send-to-shell 
        !            53:                                        (concat mh-progs "/send -noverbose "
        !            54:                                                mh-path "/draft"
        !            55:                                        ))
        !            56:                                    (if annotate
        !            57:                                        (progn
        !            58:                                              (temp-use-buffer "message")
        !            59:                                              (read-file fn)
        !            60:                                              (annotate "Replied" "Forwarded")
        !            61:                                        )
        !            62:                                    )
        !            63:                                    (setq exfl 1))
        !            64:                             (= actn 'q')
        !            65:                             (progn
        !            66:                                   (&mh-restore-killbuffer)
        !            67:                                   (pop-to-buffer (concat "+" mh-folder))
        !            68:                                   (delete-other-windows)
        !            69:                                   (setq mode-line-format sm)
        !            70:                                   (error-message "Message not sent; its text remains in buffer 'draft'")
        !            71:                             )
        !            72:                         )
        !            73:                  )
        !            74:            )
        !            75:        )
        !            76:        (pop-to-buffer (concat "+" mh-folder)) (delete-other-windows)
        !            77:        (setq mode-line-format sm)
        !            78:        (pop-to-buffer "draft") (previous-window)
        !            79:     )
        !            80: )

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