diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-11-16 22:28:34 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2020-12-06 16:21:07 -0400 |
| commit | e7b90eedad1c6f72c40c25f35c61a981ec1862f6 (patch) | |
| tree | d0cba8784657466744fe0fb15f483ca9643a700e | |
| parent | ac8a117a84c8af8a27325b706e0b68a6ada8e478 (diff) | |
emacs: remove unused notmuch-address-locate-command
We stopped using it in [1: 0e671478].
1: 0e671478c6f37018973392f049979da5e1a8ff99
emacs: replace use of notmuch-address-message-insinuate
| -rw-r--r-- | emacs/notmuch-address.el | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el index 2c51e89b..71985ed7 100644 --- a/emacs/notmuch-address.el +++ b/emacs/notmuch-address.el @@ -250,25 +250,6 @@ requiring external commands." (ding)))) (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) (let ((name-addr (plist-get result :name-addr))) (puthash name-addr t notmuch-address-completions))) |