![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mh-forw.ml CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe|
Return to mh-forw.ml CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe |
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.