![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to emh-send.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 / emh|
Return to emh-send.ml CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / emh |
1.1 ! root 1: ; emh-send.ml :: implements the emh send commands ! 2: ; Wed Oct 5 03:43:43 1983 /mtr <mrose@uci-750a> ! 3: ! 4: ! 5: (declare-buffer-specific &mhdraft &mhprocess) ! 6: ! 7: (defun ! 8: ! 9: (&mh-comp &args &buffer &components ! 10: (setq &args ! 11: (if (| prefix-argument-provided (> (nargs) 0)) ! 12: (arg 1 ": mh-comps (args) ") "components")) ! 13: (if (! (file-exists (setq &components (&mh-path &args)))) ! 14: (if (!= &args "components") ! 15: (error-message "no such file as " &components) ! 16: (if (! (file-exists ! 17: (setq &components "/usr/local/lib/mh/components"))) ! 18: (error-message "no default components file")))) ! 19: (setq &buffer (&mh-unique "compose")) ! 20: (error-occured (delete-buffer &buffer)) ! 21: (pop-to-buffer &buffer) ! 22: (provide-prefix-argument 0 (&mh-finish-build &components)) ! 23: ! 24: (novalue) ! 25: ) ! 26: ! 27: (&mh-forw &args &buffer &folder &msg ! 28: (setq &args ! 29: (if (| prefix-argument-provided (> (nargs) 0)) ! 30: (arg 1 ": mh-forw (args) ") "")) ! 31: (save-excursion ! 32: (pop-to-buffer (&mh-cur-folder)) ! 33: (setq &folder &mhfolder)) ! 34: (setq &msg (&mh-cur-message)) ! 35: (if (>= (process-status ! 36: (setq &buffer (concat "forward " &folder "/" &msg))) 0) ! 37: (error-message "already doing forw " &msg)) ! 38: (save-excursion ! 39: (temp-use-buffer &buffer) ! 40: (if (>= (process-status &mhprocess) 0) ! 41: (error-message "already posting a draft for " &msg))) ! 42: (error-occured (delete-buffer &buffer)) ! 43: (save-excursion ! 44: (temp-use-buffer &buffer) ! 45: (setq needs-checkpointing 0) ! 46: (erase-buffer) ! 47: (setq &mhfolder &folder) ! 48: (setq &mhmsg &msg) ! 49: (&mh-start-process ! 50: (concat "forw " &folder " " &msg ! 51: (if (!= &args "") (concat " " &args) "") " -build") ! 52: &buffer) ! 53: (insert-sentinel &buffer "&mh-forw-sentinel") ! 54: (setq mode-string "Starting") ! 55: (setq mode-line-format " %b: forw (status: %m) %M")) ! 56: (&mh-set-cur &msg) ! 57: ! 58: (novalue) ! 59: ) ! 60: ! 61: (&mh-forw-sentinel &flag &text ! 62: (setq &flag (>> prefix-argument 16)) ! 63: (setq &text (process-output)) ! 64: (save-excursion ! 65: (temp-use-buffer MPX-process) ! 66: (setq mode-string (substr &text 1 (- (length &text) 1))) ! 67: (if (= mode-string "Exited") ! 68: (provide-prefix-argument 1 (&mh-finish-build "draft")))) ! 69: (dot-is-visible) ; hack... ! 70: (if (bitwise-and &flag 12) ! 71: (save-excursion (pop-to-buffer MPX-process) (beginning-of-file))) ! 72: ) ! 73: ! 74: (&mh-repl &args &buffer &folder &msg ! 75: (setq &args ! 76: (if (| prefix-argument-provided (> (nargs) 0)) ! 77: (arg 1 ": mh-repl (args) ") "")) ! 78: (save-excursion ! 79: (pop-to-buffer (&mh-cur-folder)) ! 80: (setq &folder &mhfolder)) ! 81: (setq &msg (&mh-cur-message)) ! 82: (if (>= (process-status ! 83: (setq &buffer (concat "reply " &folder "/" &msg))) 0) ! 84: (error-message "already doing repl " &msg)) ! 85: (save-excursion ! 86: (temp-use-buffer &buffer) ! 87: (if (>= (process-status &mhprocess) 0) ! 88: (error-message "already posting a reply to " &msg))) ! 89: (error-occured (delete-buffer &buffer)) ! 90: (save-excursion ! 91: (temp-use-buffer &buffer) ! 92: (setq needs-checkpointing 0) ! 93: (erase-buffer) ! 94: (setq &mhfolder &folder) ! 95: (setq &mhmsg &msg) ! 96: (&mh-start-process ! 97: (concat "repl " &folder " " &msg ! 98: (if (!= &args "") (concat " " &args) "") " -build") ! 99: &buffer) ! 100: (insert-sentinel &buffer "&mh-repl-sentinel") ! 101: (setq mode-string "Starting") ! 102: (setq mode-line-format " %b: repl (status: %m) %M")) ! 103: (&mh-set-cur &msg) ! 104: ! 105: (novalue) ! 106: ) ! 107: ! 108: (&mh-repl-sentinel &flag &text ! 109: (setq &flag (>> prefix-argument 16)) ! 110: (setq &text (process-output)) ! 111: (save-excursion ! 112: (temp-use-buffer MPX-process) ! 113: (setq mode-string (substr &text 1 (- (length &text) 1))) ! 114: (if (= mode-string "Exited") ! 115: (provide-prefix-argument 1 (&mh-finish-build "reply")))) ! 116: (dot-is-visible) ; hack... ! 117: (if (bitwise-and &flag 12) ! 118: (save-excursion (pop-to-buffer MPX-process) (beginning-of-file))) ! 119: ) ! 120: ! 121: (&mh-finish-build &file &remove ! 122: (setq &file (&mh-path (arg 1 ": mh-finish-build (from file) "))) ! 123: (setq &remove prefix-argument) ! 124: (remove-all-local-bindings) ! 125: (setq mode-string "Normal") ! 126: (if (file-exists &file) ! 127: (progn ! 128: (erase-buffer) ! 129: (insert-file &file) ! 130: (error-occured ! 131: (if (is-bound &mh-draft-automode) ! 132: (execute-mlisp-line &mh-draft-automode) ! 133: (text-mode))) ! 134: (setq mode-line-format ! 135: " %b*: ^X-^S to post (%m) %M %[%p%]") ! 136: (local-bind-to-key "&mh-send" "\^X\^S") ! 137: (local-bind-to-key "&mh-@-show" "\^X@") ! 138: (if &remove ! 139: (unlink-file &file))) ! 140: (setq mode-line-format " %b: build of draft failed %M")) ! 141: ) ! 142: ! 143: (&mh-send &args &buffer &draft &file ! 144: (setq &args ! 145: (if (| prefix-argument-provided (> (nargs) 0)) ! 146: (arg 1 ": mh-send (args) ") "")) ! 147: (if (>= (process-status &mhprocess) 0) ! 148: (error-message "already sending draft")) ! 149: (write-named-file ! 150: (setq &file (concat &mhpath (setq &buffer (&mh-unique &mhexec))))) ! 151: (error-occured (delete-buffer (setq &mhprocess &buffer))) ! 152: (setq &draft (current-buffer-name)) ! 153: (setq mode-line-format ! 154: " %b*: posting in progress (%m) %M %[%p%]") ! 155: (delete-window) ! 156: (save-excursion ! 157: (temp-use-buffer &buffer) ! 158: (setq needs-checkpointing 0) ! 159: (erase-buffer) ! 160: (setq &mhdraft &draft) ! 161: (local-bind-to-key "&mh-@-show" "\^X@") ! 162: (&mh-start-process ! 163: (concat "send " &file (if (!= &args "") (concat " " &args) "")) ! 164: &buffer) ! 165: (insert-sentinel &buffer "&mh-send-sentinel") ! 166: (setq mode-string "Starting") ! 167: (setq mode-line-format ! 168: (concat " %b: send of " &draft " (status: %m) %M"))) ! 169: ! 170: (novalue) ! 171: ) ! 172: ! 173: (&mh-send-sentinel &flag &text ! 174: (setq &flag (>> prefix-argument 16)) ! 175: (setq &text (process-output)) ! 176: (save-excursion ! 177: (temp-use-buffer MPX-process) ! 178: (setq mode-string (substr &text 1 (- (length &text) 1)))) ! 179: (dot-is-visible) ; hack... ! 180: (if (bitwise-and &flag 12) ! 181: (save-excursion ! 182: (pop-to-buffer MPX-process) ! 183: (beginning-of-file) ! 184: (save-excursion ! 185: (temp-use-buffer &mhdraft) ! 186: (if (file-exists (current-file-name)) ! 187: (setq mode-line-format ! 188: (concat " %b: posting of draft in " ! 189: MPX-process " failed (%m) %M %[%p%]")) ! 190: (delete-buffer (current-buffer-name)))))) ! 191: ) ! 192: ! 193: (&mh-@-show ! 194: (if ! 195: (& (!= &mhfolder "") (!= &mhmsg "")) ! 196: (progn (&mh-set-cur &mhmsg) (&mh-show)) ! 197: (!= &mhdraft "") ! 198: (if (error-occured (next-buffer-name &mhdraft)) ! 199: (save-excursion (pop-to-buffer &mhdraft)) ! 200: (error-message "no draft message")) ! 201: (error-message "no target message")) ! 202: ! 203: (novalue) ! 204: ) ! 205: ) ! 206: ! 207: (novalue)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.