* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55214b1b4087d37ac5558a29fb40d05804700ecb..bdc889055637b4b10beba4ee3cf9f93d9c5db325 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+1999-02-22  Sam Steingold  <sds@goems.com>
+ 
+       * 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  <sds@goems.com>
  
        * simple.el (backward-delete-char-untabify):

diff --git a/lisp/goto-addr.el b/lisp/goto-addr.el
index 05c55684b453dc095551cae1f326cab65c9c840e..2cf502bad6a5674d291c90feb8cf5d06dd19aea1 100644 (file)
--- 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 ()