From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 9 Aug 2020 10:52:02 +0000 (+0200)
Subject: Slight code clean-up in message-mailto
X-Git-Tag: emacs-28.0.90~6736
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5732d8ee9a23900d697d76eac07db1ac89ba4fbf;p=emacs.git

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 0aca31ac88a..61d9c602470 100644
--- 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)))