alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: Demote a few broken commands to functions

Browse Source 
It would was not possible to interactively invoke these functions
because their `interactive' form does not provide all the mandatory
arguments.
This commit is contained in:
Jonas Bernoulli
2020-02-17 12:11:46 +01:00
parent 30e005d574
commit 9f26819efb
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
mu4e/mu4e-view.el
View File

@ -1572,7 +1572,6 @@ URLs. The urls are fetched to `mu4e-attachment-dir'."
(defun mu4e~view-handle-urls (prompt multi urlfunc) (defun mu4e~view-handle-urls (prompt multi urlfunc)
"If MULTI is nil, apply URLFUNC to a single uri, otherwise, apply "If MULTI is nil, apply URLFUNC to a single uri, otherwise, apply
it to a range of uris. PROMPT is the query to present to the user." it to a range of uris. PROMPT is the query to present to the user."
(interactive "P")
(if multi (if multi
(mu4e~view-handle-multi-urls prompt urlfunc) (mu4e~view-handle-multi-urls prompt urlfunc)
(mu4e~view-handle-single-url prompt urlfunc))) (mu4e~view-handle-single-url prompt urlfunc)))
@ -1580,7 +1579,6 @@ it to a range of uris. PROMPT is the query to present to the user."
(defun mu4e~view-handle-single-url (prompt urlfunc &optional num) (defun mu4e~view-handle-single-url (prompt urlfunc &optional num)
"Apply URLFUNC to url NUM in the current message, prompting the "Apply URLFUNC to url NUM in the current message, prompting the
user with PROMPT." user with PROMPT."
(interactive)
(let* ((num (or num (mu4e~view-get-urls-num prompt))) (let* ((num (or num (mu4e~view-get-urls-num prompt)))
(url (gethash num mu4e~view-link-map))) (url (gethash num mu4e~view-link-map)))
(unless url (mu4e-warn "Invalid number for URL")) (unless url (mu4e-warn "Invalid number for URL"))
@ -1596,7 +1594,6 @@ of urls. You can type multiple values separated by space, e.g. 1
Furthermore, there is a shortcut \"a\" which means all urls, but as Furthermore, there is a shortcut \"a\" which means all urls, but as
this is the default, you may not need it." this is the default, you may not need it."
(interactive)
(let* ((linkstr (mu4e~view-get-urls-num (let* ((linkstr (mu4e~view-get-urls-num
"URL number range (or 'a' for 'all')" t)) "URL number range (or 'a' for 'all')" t))
(count (hash-table-count mu4e~view-link-map)) (count (hash-table-count mu4e~view-link-map))