X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-hello.el;h=033a30a93189e5e86a4e3575c16e152388b1e2bb;hb=1c17dda5d5443aba22a115d0ac16d3e162c1a65f;hp=f68fdb5b034a5c94b70ae9a98d55b54ff5464b60;hpb=ddce8438a086fdc79d72f5b9fae364199d33c6bd;p=notmuch diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index f68fdb5b..033a30a9 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -64,12 +64,6 @@ "Background colour for the notmuch logo." :group 'notmuch) -(defcustom notmuch-hello-jump-to-search nil - "Whether `notmuch-hello' should always jump to the search -field." - :type 'boolean - :group 'notmuch) - (defvar notmuch-hello-url "http://notmuchmail.org" "The `notmuch' web site.") @@ -193,7 +187,7 @@ diagonal." (defimage notmuch-hello-logo ((:type png :file "notmuch-logo.png"))) (defun notmuch-hello-search-continuation() - (notmuch-hello t)) + (notmuch-hello-update t)) (defun notmuch-hello-update (&optional no-display) ;; Lazy - rebuild everything. @@ -370,9 +364,9 @@ diagonal." (if final-target-pos (goto-char final-target-pos) - (if notmuch-hello-jump-to-search - (notmuch-hello-goto-search) - (goto-char (point-min)))))) + (progn + (goto-char (point-min)) + (widget-forward 1))))) ;;