This is almost the same as id:1397627927-9692-1-git-send-email-markwalters1009 at gmail.com but with a commit message a couple of function renames and a couple of spelling/typo mistakes fixed (pointed out by Tomi)
The diff from the WIP version is: diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 27eac72..a7a8e20 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -56,7 +56,7 @@ lists (NAME QUERY COUNT-QUERY)." "Return a copy of SAVED-SEARCH in plist form. If saved search is a plist then just return a copy. In other -cases, for backwards compatability, convert to plist form and +cases, for backwards compatibility, convert to plist form and return that." (if (keywordp (car saved-search)) (copy-seq saved-search) @@ -67,11 +67,11 @@ return that." (when string (setq plist-search (append plist-search (list field string))))))))) -(defun notmuch--saved-searches-to-plist (symbol) +(defun notmuch-hello--saved-searches-to-plist (symbol) "Extract a saved-search variable into plist form. The new style saved search is just a plist, but for backwards -compatatibility we use this function to extract old style saved +compatibility we use this function to extract old style saved searches so they still work in customize." (let ((saved-searches (default-value symbol))) (mapcar #'notmuch-hello-saved-search-to-plist saved-searches))) @@ -114,7 +114,7 @@ or a list of the form (NAME QUERY COUNT-QUERY)." ;; section. This section generates its own saved-search list in one of ;; the latter two forms. - :get 'notmuch--saved-searches-to-plist + :get 'notmuch-hello--saved-searches-to-plist :type '(repeat notmuch-saved-search-plist) :tag "List of Saved Searches" :group 'notmuch-hello) Mark Walters (1): emacs: hello: bugfix for saved searches defcustom emacs/notmuch-hello.el | 128 ++++++++++++++++++++++++++++++++++-------------- emacs/notmuch-lib.el | 52 -------------------- 2 files changed, 90 insertions(+), 90 deletions(-) -- 1.7.10.4