emacs: notmuch-hello: Move to first saved search item.

[obsolete/notmuch-old] / emacs / notmuch-hello.el

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 61e85bb64d8a522afde035aa1b3dfdb9c6a8c862..24e3133d8ae79f3099ddddcc4c90ffe8acdad258 100644 (file)
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -272,9 +272,10 @@ diagonal."
                                 (customize-variable 'notmuch-hello-saved-searches))
                       "edit")
        (widget-insert "\n\n")
+       (setq final-target-pos (point-marker))
        (let ((start (point)))
          (setq found-target-pos (notmuch-hello-insert-tags saved-alist widest target))
-         (if (not final-target-pos)
+         (if found-target-pos
              (setq final-target-pos found-target-pos))
          (indent-rigidly start (point) notmuch-hello-indent)))
 
@@ -365,11 +366,9 @@ diagonal."
 
     (widget-setup)
 
-    (if final-target-pos
-       (goto-char final-target-pos)
-      (progn
-       (goto-char (point-min))
-       (widget-forward 1)))))
+    (goto-char final-target-pos)
+    (if (not (widget-at))
+       (widget-forward 1))))
 
 ;;