![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mh-repl.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-repl.ml CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe |
1.1 root 1: ; This autoloaded file implements the "r" command of mhe
2: (defun
3: (&mh-repl actn exfl sm fn annotate ft
4: (save-window-excursion
5: (error-occured
6: (&mh-save-killbuffer)
7: (temp-use-buffer (concat "+" mh-folder))
8: (setq fn (&mh-get-fname))
9: (setq annotate mh-annotate)
10: (setq ft mh-folder-title)
11: (temp-use-buffer "message")
12: (setq mode-string "mhe")
13: (setq sm mode-line-format)
14: (message "Replying to message " (&mh-get-msgnum) "...")
15: (sit-for 0)
16: (pop-to-buffer "message")
17: (if (error-occured (read-file fn))
18: (error-message "Message " fn " does not exist!"))
19: (pop-to-buffer "reply") (erase-buffer)
20: (insert-string "One moment, please....")
21: (unlink-file (concat mh-path "/reply"))
22: (error-occured
23: (send-to-shell
24: (concat mh-progs "/repl -build +" ft " "
25: (&mh-get-msgnum))
26: ))
27: (show-shell-errors)
28: )
29: (if (file-exists (concat mh-path "/reply"))
30: (read-file (concat mh-path "/reply"))
31: (error-message "Reply failed: cannot construct header"
32: " (file " mh-path "/reply)")
33: )
34: (pop-to-buffer "reply")
35: (local-bind-to-key "exit-emacs" "\\")
36: (mail-mode) (end-of-file)
37: (setq exfl 0)
38: (while (= exfl 0)
39: (error-occured
40: (pop-to-buffer "message")
41: (setq mode-line-format
42: "{%b} %[^X^C exits to top level%] %M")
43: (pop-to-buffer "reply")
44: (setq mode-line-format
45: (concat "{%b}"
46: "%[%p of " mh-path "/reply"
47: "%] (^X^C exits to top level) %M"))
48: (&mh-restore-killbuffer)
49: (recursive-edit)
50: (setq mode-line-format
51: (concat "%[%p of " mh-path "/reply%] %M"))
52: (pop-to-buffer "message")
53: (setq mode-line-format sm)
54: (sit-for 0)
55: )
56: (setq actn (get-response "Ready to send. Action? (m, q, e, or ?) " "mMqQeE\"
57: "m: mail it, q: quit, e: resume editing, ?: this msg."))
58: (if (= actn 'm')
59: (progn (message "Sending...") (sit-for 0)
60: (pop-to-buffer "reply")
61: (write-current-file)
62: (send-to-shell
63: (concat mh-progs "/send -noverbose "
64: mh-path "/reply"
65: ))
66: (pop-to-buffer "message")
67: (if annotate
68: (annotate "Replied")
69: )
70: (setq exfl 1))
71: (= actn 'q')
72: (progn
73: (&mh-restore-killbuffer)
74: (pop-to-buffer (concat "+" mh-folder))
75: (delete-other-windows)
76: (setq mode-line-format sm)
77: (error-message "Message not sent; its text remains in buffer 'reply'")
78: )
79: )
80: )
81: )
82: (pop-to-buffer (concat "+" mh-folder)) (delete-other-windows)
83: (pop-to-buffer "message")
84: (setq mode-line-format sm) (previous-window)
85: )
86: )
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.