Mercurial > hg > Applications > mh
comparison miscellany/mhe/mh-forw.ml @ 0:bce86c4163a3
Initial revision
| author | kono |
|---|---|
| date | Mon, 18 Apr 2005 23:46:02 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:bce86c4163a3 |
|---|---|
| 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 ) |