emacs: remove unused notmuch-address-locate-command

[notmuch] / emacs / notmuch-address.el

diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el
index 2c51e89bb2a29f91f9e3e88a4d4d9f10d2a893cb..71985ed79dfcce86985002abf2c97e7d9ddb0a65 100644 (file)
--- 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)))