debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 12:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: renamed function notmuch-version to notmuch-cli-version

Browse source 
As it asks `notmuch` binary for its version number.
This commit is contained in:
Tomi Ollila 2015-08-02 17:48:13 +03:00 committed by David Bremner
parent 6d5c7b3ca5
commit 0c565fa29f
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
emacs/notmuch-hello.el
View file

@ -628,7 +628,7 @@ with `notmuch-hello-query-counts'."
(defun notmuch-hello-versions () (defun notmuch-hello-versions ()
"Display the notmuch version(s)" "Display the notmuch version(s)"
(interactive) (interactive)
(let ((notmuch-cli-version (notmuch-version))) (let ((notmuch-cli-version (notmuch-cli-version)))
(message "notmuch version %s" (message "notmuch version %s"
(if (string= notmuch-emacs-version notmuch-cli-version) (if (string= notmuch-emacs-version notmuch-cli-version)
notmuch-cli-version notmuch-cli-version

4
emacs/notmuch-lib.el
View file

@ -192,8 +192,8 @@ Otherwise the output will be returned"
"Perhaps you haven't run \"notmuch setup\" yet? Try running this "Perhaps you haven't run \"notmuch setup\" yet? Try running this
on the command line, and then retry your notmuch command"))) on the command line, and then retry your notmuch command")))
(defun notmuch-version () (defun notmuch-cli-version ()
"Return a string with the notmuch version number." "Return a string with the notmuch cli command version number."
(let ((long-string (let ((long-string
;; Trim off the trailing newline. ;; Trim off the trailing newline.
(substring (notmuch-command-to-string "--version") 0 -1))) (substring (notmuch-command-to-string "--version") 0 -1)))

2
emacs/notmuch-mua.el
View file

@ -118,7 +118,7 @@ Note that these functions use `mail-citation-hook' if that is non-nil."
(defun notmuch-mua-user-agent-notmuch () (defun notmuch-mua-user-agent-notmuch ()
"Generate a `User-Agent:' string suitable for notmuch." "Generate a `User-Agent:' string suitable for notmuch."
(concat "Notmuch/" (notmuch-version) " (http://notmuchmail.org)")) (concat "Notmuch/" (notmuch-cli-version) " (http://notmuchmail.org)"))
(defun notmuch-mua-user-agent-emacs () (defun notmuch-mua-user-agent-emacs ()
"Generate a `User-Agent:' string suitable for notmuch." "Generate a `User-Agent:' string suitable for notmuch."