[PATCH 1/3] Removed variable notmuch-hello-search-pos

diff --git a/22/8d5eebcab521446aa5a8f39b46846db60b8c99 b/22/8d5eebcab521446aa5a8f39b46846db60b8c99
new file mode 100644 (file)
index 0000000..9ba3288
--- /dev/null
+++ b/22/8d5eebcab521446aa5a8f39b46846db60b8c99
@@ -0,0 +1,93 @@
+Return-Path: <too@guru.guru-group.fi>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+       by olra.theworths.org (Postfix) with ESMTP id 407DF431FBC\r
+       for <notmuch@notmuchmail.org>; Tue, 24 Apr 2012 14:11:18 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
+       autolearn=disabled\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+       by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+       with ESMTP id UkssQOnwwzcp for <notmuch@notmuchmail.org>;\r
+       Tue, 24 Apr 2012 14:11:17 -0700 (PDT)\r
+Received: from guru.guru-group.fi (guru-group.fi [87.108.86.66])\r
+       by olra.theworths.org (Postfix) with ESMTP id 62AB3431FAE\r
+       for <notmuch@notmuchmail.org>; Tue, 24 Apr 2012 14:11:17 -0700 (PDT)\r
+Received: by guru.guru-group.fi (Postfix, from userid 501)\r
+       id 12ED068055; Wed, 25 Apr 2012 00:11:12 +0300 (EEST)\r
+From: Tomi Ollila <tomi.ollila@iki.fi>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH 1/3] Removed variable notmuch-hello-search-pos\r
+Date: Wed, 25 Apr 2012 00:11:08 +0300\r
+Message-Id: <1335301870-11572-1-git-send-email-tomi.ollila@iki.fi>\r
+X-Mailer: git-send-email 1.7.6.1\r
+Cc: Tomi Ollila <too@iki.fi>\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+       <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Tue, 24 Apr 2012 21:11:18 -0000\r
+\r
+From: Tomi Ollila <too@iki.fi>\r
+\r
+Variable 'notmuch-hello-search-pos' was used to locate cursor to\r
+the search bar in case no other location where to put it was known.\r
+(In case search bar is shown -- if not cursor will be at the end\r
+of buffer). More generic & versatile way to locace cursor follows. \r
+\r
+---\r
+ emacs/notmuch-hello.el |   11 +----------\r
+ 1 files changed, 1 insertions(+), 10 deletions(-)\r
+\r
+diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
+index 71d37b8..8ae0aca 100644\r
+--- a/emacs/notmuch-hello.el\r
++++ b/emacs/notmuch-hello.el\r
+@@ -154,11 +154,6 @@ International Bureau of Weights and Measures."\r
+ (defvar notmuch-hello-url "http://notmuchmail.org"\r
+   "The `notmuch' web site.")\r
+ \r
+-(defvar notmuch-hello-search-pos nil\r
+-  "Position of search widget, if any.\r
+-\r
+-This should only be set by `notmuch-hello-insert-search'.")\r
+-\r
+ (defvar notmuch-hello-custom-section-options\r
+   '((:filter (string :tag "Filter for each tag"))\r
+     (:filter-count (string :tag "Different filter to generate message counts"))\r
+@@ -589,7 +584,6 @@ Complete list of currently available key bindings:\r
+ (defun notmuch-hello-insert-search ()\r
+   "Insert a search widget."\r
+   (widget-insert "Search: ")\r
+-  (setq notmuch-hello-search-pos (point-marker))\r
+   (widget-create 'editable-field\r
+                ;; Leave some space at the start and end of the\r
+                ;; search boxes.\r
+@@ -807,11 +801,8 @@ following:\r
+       (when final-target-pos\r
+       (goto-char final-target-pos)\r
+       (unless (widget-at)\r
+-        (widget-forward 1)))\r
++        (widget-forward 1)))))\r
+ \r
+-      (unless (widget-at)\r
+-      (when notmuch-hello-search-pos\r
+-        (goto-char notmuch-hello-search-pos)))))\r
+   (run-hooks 'notmuch-hello-refresh-hook)\r
+   (setq notmuch-hello-first-run nil))\r
+ \r
+-- \r
+1.7.7.6\r
+\r