debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: remove unused notmuch-address-locate-command

Browse source 
We stopped using it in [1: 0e671478].

1: 0e671478c6
   emacs: replace use of notmuch-address-message-insinuate
This commit is contained in:
Jonas Bernoulli 2020-11-16 22:28:34 +01:00 committed by David Bremner
parent ac8a117a84
commit e7b90eedad
1 changed files with 0 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
emacs/notmuch-address.el
View file

@ -250,25 +250,6 @@ requiring external commands."
(ding)))) (ding))))
(t nil))) (t nil)))
;; Copied from `w3m-which-command'.
(defun notmuch-address-locate-command (command)
"Return non-nil if `command' is an executable either on
`exec-path' or an absolute pathname."
(and (stringp command)
(if (and (file-name-absolute-p command)
(file-executable-p command))
command
(setq command (file-name-nondirectory command))
(catch 'found-command
(let (bin)
(dolist (dir exec-path)
(setq bin (expand-file-name command dir))
(when (or (and (file-executable-p bin)
(not (file-directory-p bin)))
(and (file-executable-p (setq bin (concat bin ".exe")))
(not (file-directory-p bin))))
(throw 'found-command bin))))))))
(defun notmuch-address-harvest-addr (result) (defun notmuch-address-harvest-addr (result)
(let ((name-addr (plist-get result :name-addr))) (let ((name-addr (plist-get result :name-addr)))
(puthash name-addr t notmuch-address-completions))) (puthash name-addr t notmuch-address-completions)))