From 002c0506fcceec111d091ebd60a02be3cfca7b52 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Mon, 15 Nov 1999 16:16:11 +0000 Subject: [PATCH] * goto-addr.el (goto-address-at-mouse, goto-address-find-address-at-point): use compose-mail. (goto-address-mail-method): removed variable. (goto-address-send-using-mh-e, goto-address-send-using-mhe, goto-address-send-using-mail): removed functions. --- lisp/ChangeLog | 8 ++++++++ lisp/goto-addr.el | 37 ++++--------------------------------- 2 files changed, 12 insertions(+), 33 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 55214b1b408..bdc88905563 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +1999-02-22 Sam Steingold + + * goto-addr.el (goto-address-at-mouse, + goto-address-find-address-at-point): use compose-mail. + (goto-address-mail-method): removed variable. + (goto-address-send-using-mh-e, goto-address-send-using-mhe, + goto-address-send-using-mail): removed functions. + 1998-11-03 Sam Steingold * simple.el (backward-delete-char-untabify): diff --git a/lisp/goto-addr.el b/lisp/goto-addr.el index 05c55684b45..2cf502bad6a 100644 --- a/lisp/goto-addr.el +++ b/lisp/goto-addr.el @@ -36,13 +36,8 @@ ;; ;; To use goto-address in a particular mode (for example, while ;; reading mail in mh-e), add something like this in your .emacs file: -;; -;; (add-hook 'mh-show-mode-hook 'goto-address) -;; -;; 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-mh-e) +;; (add-hook 'mh-show-mode-hook 'goto-address) ;; ;; 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 @@ -106,14 +101,6 @@ But only if `goto-address-highlight-p' is also non-nil." "[-a-zA-Z0-9_=#$@~`%&*+|\\/]") "A regular expression probably matching a URL.") -(defcustom goto-address-mail-method - '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-mh-e' (MH-E)." - :type 'function - :group 'goto-address) - (defvar goto-address-highlight-keymap (let ((m (make-sparse-keymap))) (define-key m [mouse-2] 'goto-address-at-mouse) @@ -197,7 +184,7 @@ there, then load the URL at or before the position of the mouse click." (if (string-equal url "") (error "No e-mail address or URL found") (browse-url url))) - (funcall goto-address-mail-method address)))))) + (compose-mail address)))))) ;;;###autoload (defun goto-address-at-point () @@ -213,7 +200,7 @@ there, then load the URL at or before point." (if (string-equal url "") (error "No e-mail address or URL found") (browse-url url))) - (funcall goto-address-mail-method address))))) + (compose-mail address))))) (defun goto-address-find-address-at-point () "Find e-mail address around or before point. @@ -226,23 +213,7 @@ address. If no e-mail address found, return the empty string." (and (re-search-forward goto-address-mail-regexp eol 'lim) (goto-char (match-beginning 0))))) (buffer-substring (match-beginning 0) (match-end 0)) - ""))) - -(defun goto-address-send-using-mh-e (to) - (require 'mh-comp) - (mh-find-path) - (let ((cc (mh-read-address "Cc: ")) - (subject (read-string "Subject: ")) - (config (current-window-configuration))) - (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)) - (end-of-line 2))) + "")))m ;;;###autoload (defun goto-address () -- 2.39.5