mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* goto-addr.el (goto-address-at-mouse,

Browse source 
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.
This commit is contained in:
Sam Steingold 1999-11-15 16:16:11 +00:00
parent 1e722f9f18
commit 002c0506fc
2 changed files with 12 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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):

37
lisp/goto-addr.el
View file

@ -36,14 +36,9 @@
;;
;; 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)
;;
;; 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
;; another mouse click to the function, add the following to your .emacs
@ -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 ()