Mercurial > emacs
changeset 15028:4572159ddf04
(goto-address-send-using-mh-e):
Renamed from goto-address-send-using-mhe. Require `mh-comp'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 16 Apr 1996 03:57:23 +0000 |
| parents | 30c4f64f3579 |
| children | ba44a899c055 |
| files | lisp/goto-addr.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/goto-addr.el Mon Apr 15 21:17:59 1996 +0000 +++ b/lisp/goto-addr.el Tue Apr 16 03:57:23 1996 +0000 @@ -42,7 +42,7 @@ ;; By default, goto-address now sends using `mail' instead of `mh-send'. ;; To use mh-e to send mail, add the following to your .emacs file: ;; -;; (setq goto-address-mail-method 'goto-address-send-using-mhe) +;; (setq goto-address-mail-method 'goto-address-send-using-mh-e) ;; ;; The mouse click method is bound to [mouse-2] on highlighted URL's or ;; e-mail addresses only; it functions normally everywhere else. To bind @@ -98,7 +98,7 @@ 'goto-address-send-using-mail "*Function to compose mail. Two pre-made functions are `goto-address-send-using-mail' (sendmail); -and `goto-address-send-using-mhe' (MH-E).") +and `goto-address-send-using-mh-e' (MH-E).") (defvar goto-address-highlight-keymap (let ((m (make-sparse-keymap))) @@ -194,7 +194,8 @@ (buffer-substring (match-beginning 0) (match-end 0)) ""))) -(defun goto-address-send-using-mhe (to) +(defun goto-address-send-using-mh-e (to) + (require 'mh-comp) (mh-find-path) (let ((cc (mh-read-address "Cc: ")) (subject (read-string "Subject: ")) @@ -202,6 +203,8 @@ (delete-other-windows) (mh-send-sub to cc subject config))) +(fset 'goto-address-send-using-mhe 'goto-address-send-using-mh-e) + (defun goto-address-send-using-mail (to) (mail-other-window nil to) (and (goto-char (point-min))