diff options
| author | Richard M. Stallman | 1998-12-30 03:41:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-12-30 03:41:55 +0000 |
| commit | e58883dd43af15f1547fdbe9e0fe895fe5c659f5 (patch) | |
| tree | 4de1a2aacad035678b3d4f90a749111938c78e6f | |
| parent | c8099634a03277912d488d33adbc899bf235a5d9 (diff) | |
| download | emacs-e58883dd43af15f1547fdbe9e0fe895fe5c659f5.tar.gz emacs-e58883dd43af15f1547fdbe9e0fe895fe5c659f5.zip | |
(browse-url-mail): Give argument SEND-ACTION
to compose-mail in the correct places and as a list.
| -rw-r--r-- | lisp/browse-url.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el index 219378c1b52..86774d860cb 100644 --- a/lisp/browse-url.el +++ b/lisp/browse-url.el | |||
| @@ -1015,10 +1015,10 @@ used instead of `browse-url-new-window-p'." | |||
| 1015 | (substring url 7) | 1015 | (substring url 7) |
| 1016 | url))) | 1016 | url))) |
| 1017 | (if (browse-url-maybe-new-window new-window (interactive-p)) | 1017 | (if (browse-url-maybe-new-window new-window (interactive-p)) |
| 1018 | (compose-mail-other-window to nil nil nil nil | 1018 | (compose-mail-other-window to nil nil nil |
| 1019 | (cons 'insert-buffer (current-buffer))) | 1019 | (list 'insert-buffer (current-buffer))) |
| 1020 | (compose-mail to nil nil nil nil nil (cons 'insert-buffer | 1020 | (compose-mail to nil nil nil nil |
| 1021 | (current-buffer))))))) | 1021 | (list 'insert-buffer (current-buffer))))))) |
| 1022 | 1022 | ||
| 1023 | ;; --- Random browser --- | 1023 | ;; --- Random browser --- |
| 1024 | 1024 | ||