Mercurial > emacs

changeset 19583:5c7badcafb2b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(browse-url-mail): Use compose-mail[-other-window], not always `mail'.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Aug 1997 21:20:47 +0000
parents 1289a4779e68
children 17db1ee36bbb
files lisp/browse-url.el
diffstat 1 files changed, 23 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/browse-url.el	Wed Aug 27 20:08:59 1997 +0000
+++ b/lisp/browse-url.el	Wed Aug 27 21:20:47 1997 +0000
@@ -101,11 +101,17 @@
 ;; <URL:ftp://sig.enst.fr/pub/multicast/mMosaic/> (the latter with
 ;; development support for Java applets).
 
-;; I recommend Nelson Minar <nelson@santafe.edu>'s excellent
+;; I [Denis Howe] recommend Nelson Minar <nelson@santafe.edu>'s excellent
 ;; html-helper-mode.el for editing HTML and thank Nelson for
 ;; his many useful comments on this code.
 ;; <URL:http://www.santafe.edu/%7Enelson/hhm-beta/>
 
+;; See also hm--html-menus <URL:http://www.tnt.uni-hannover.de/%7Emuenkel/
+;; software/own/hm--html-menus/>.  For composing correct HTML see also
+;; PSGML the general SGML structure editor package
+;; <URL:ftp://ftp.lysator.liu.se/pub/sgml>; hm--html-menus can be used
+;; with this.
+
 ;; This package generalises function html-previewer-process in Marc
 ;; Andreessen <marca@ncsa.uiuc.edu>'s html-mode (LCD
 ;; modes/html-mode.el.Z) and provides better versions of the URL
@@ -169,6 +175,9 @@
 ;; Browse URLs in Usenet messages by clicking mouse-2:
 ;;	(eval-after-load "gnus"
 ;;	  '(define-key gnus-article-mode-map [mouse-2] 'browse-url-at-mouse))
+;; [The current version of Gnus provides a standard feature to
+;; activate URLs in article buffers for invocation of browse-url with
+;; mouse-2.]
 
 ;; Use the Emacs w3 browser when not running under X11:
 ;;	(or (eq window-system 'x)
@@ -852,17 +861,23 @@
 ;; --- mailto ---
 
 ;;;###autoload
-(defun browse-url-mail (url)
+(defun browse-url-mail (url &optional new-window)
   "Open a new mail message buffer within Emacs.
-Default to the mailto URL around or before point."
+Default to using the mailto: URL around or before point as the
+recipient's address.  Supplying a non-nil interactive prefix argument
+will cause the mail to be composed in another window rather than the
+current one."
   (interactive (browse-url-interactive-arg "Mailto URL: "))
   (save-excursion
-    ;; open mail buffer, specifying TO and REPLYBUFFER
-    (mail nil (if (string-match "^mailto:" url)
+    (let ((func (if new-window
+		    'compose-mail-other-window
+		  'compose-mail))
+	  (to (if (string-match "^mailto:" url)
 		  (substring url 7)
-		url)
-	  nil nil nil
-	  (current-buffer))))
+		url)))
+      (apply func
+	     (list to nil nil nil nil nil (cons 'insert-buffer
+						(current-buffer)))))))
 
 ;; --- Random browser ---