Commit 5732d8ee authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Slight code clean-up in message-mailto

* lisp/gnus/message.el (message-mailto): Clean up code slightly.
parent 3c728d4c
......@@ -8817,8 +8817,7 @@ will then start up Emacs ready to compose mail."
;; <a href="">Send email</a>
(message-mailto-1 (car command-line-args-left))
(setq command-line-args-left (cdr command-line-args-left)))
(message-mailto-1 (pop command-line-args-left)))
(defun message-mailto-1 (url)
(let ((args (message-parse-mailto-url url)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment