Slight code clean-up in message-mailto

* lisp/gnus/message.el (message-mailto): Clean up code slightly.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 0aca31ac88ae9c0aab075edb6920dd9faa9a5d8f..61d9c602470ae09c14581f30c559d23f46e784fb 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -8817,8 +8817,7 @@ will then start up Emacs ready to compose mail."
   (interactive)
   ;; <a href="mailto:someone@example.com?subject=This%20is%20the%20subject&cc=someone_else@example.com&body=This%20is%20the%20body">Send email</a>
   (message-mail)
-  (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)))