bd/6949232b5de3ae8b00cbfa5c16fe166f093db5

   1 Return-Path: <tomi.ollila@nixu.com>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id 15323429E25\r
   6         for <notmuch@notmuchmail.org>; Wed, 27 Jul 2011 13:51:02 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
  12         autolearn=disabled\r
  13 Received: from olra.theworths.org ([127.0.0.1])\r
  14         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  15         with ESMTP id 35oalFzEnYsg for <notmuch@notmuchmail.org>;\r
  16         Wed, 27 Jul 2011 13:51:00 -0700 (PDT)\r
  17 X-Greylist: delayed 314 seconds by postgrey-1.32 at olra;\r
  18         Wed, 27 Jul 2011 13:51:00 PDT\r
  19 Received: from taco2.nixu.fi (taco2.nixu.fi [194.197.118.31])\r
  20         (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits))\r
  21         (No client certificate requested)\r
  22         by olra.theworths.org (Postfix) with ESMTPS id 412A5431FD0\r
  23         for <notmuch@notmuchmail.org>; Wed, 27 Jul 2011 13:51:00 -0700 (PDT)\r
  24 Received: from taco2.nixu.fi (localhost [127.0.0.1])\r
  25         by taco2.nixu.fi (8.14.3/8.14.3/Debian-5+lenny1) with ESMTP id\r
  26         p6RKjiAK010448\r
  27         (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT)\r
  28         for <notmuch@notmuchmail.org>; Wed, 27 Jul 2011 23:45:44 +0300\r
  29 Received: (from too@localhost)\r
  30         by taco2.nixu.fi (8.14.3/8.14.3/Submit) id p6RKjiml010447;\r
  31         Wed, 27 Jul 2011 23:45:44 +0300\r
  32 X-Authentication-Warning: taco2.nixu.fi: too set sender to\r
  33         tomi.ollila@nixu.com using -f\r
  34 From: Tomi Ollila <tomi.ollila@iki.fi>\r
  35 To: notmuch@notmuchmail.org\r
  36 Subject: patch: notmuch-mua.el -- message-hidden-headers\r
  37 X-Face: HhBM'cA~<r"^Xv\KRN0P{vn'Y"Kd;zg_y3S[4)KSN~s?O\"QPoL\r
  38         $[Xv_BD:i/F$WiEWax}R(MPS`^UaptOGD`*/=@\1lKoVa9tnrg0TW?"r7aRtgk[F\r
  39         !)g;OY^,BjTbr)Np:%c_o'jj,Z\r
  40 Message-ID: <yf6hb67mozr.fsf@taco2.nixu.fi>\r
  41 User-Agent: Gnus/5.110014 (No Gnus v0.14) Emacs/22.2 (gnu/linux)\r
  42 MIME-Version: 1.0\r
  43 Content-Type: text/plain\r
  44 X-Mailman-Approved-At: Wed, 24 Aug 2011 16:29:30 -0700\r
  45 X-BeenThere: notmuch@notmuchmail.org\r
  46 X-Mailman-Version: 2.1.13\r
  47 Precedence: list\r
  48 List-Id: "Use and development of the notmuch mail system."\r
  49         <notmuch.notmuchmail.org>\r
  50 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  51         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  52 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  53 List-Post: <mailto:notmuch@notmuchmail.org>\r
  54 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  55 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  56         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  57 Date: Wed, 27 Jul 2011 20:51:02 -0000\r
  58 X-Original-Date: Wed, 27 Jul 2011 23:45:44 +0300\r
  59 X-List-Received-Date: Wed, 27 Jul 2011 20:51:02 -0000\r
  60 \r
  61 Hi\r
  62 \r
  63 As of 2011-07-27 ,the function notmuch-mua-add-more-hidden-headers \r
  64 will fail to work (or the file to byte-compile) on emacs 22.2.1. \r
  65 On emacs 23.2.1 the evaluation of (member header 'message-hidden-headers)\r
  66 will always return 'nil'. examples (on emacs 22.2.1 scratch buffer):\r
  67 \r
  68 (setq foo (list "x" "foo" "bar"))\r
  69 \r
  70 (member "foo" 'foo)\r
  71 \r
  72 backtrace buffer appears with content:\r
  73 Debugger entered--Lisp error: (wrong-type-argument listp foo)\r
  74   member("foo" foo)\r
  75   eval((member "foo" (quote foo)))\r
  76   eval-last-sexp-1(nil)\r
  77   eval-last-sexp(nil)\r
  78   call-interactively(eval-last-sexp)\r
  79 \r
  80 (member "foo" foo)\r
  81 \r
  82 on mimibuffer: ("foo" "bar)\r
  83 \r
  84 patch to fix this:\r
  85 \r
  86 diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el\r
  87 index 274c5da..8824b08 100644\r
  88 --- a/emacs/notmuch-mua.el\r
  89 +++ b/emacs/notmuch-mua.el\r
  90 @@ -65,7 +65,7 @@ list."\r
  91  (defun notmuch-mua-add-more-hidden-headers ()\r
  92    "Add some headers to the list that are hidden by default."\r
  93    (mapc (lambda (header)\r
  94 -         (when (not (member header 'message-hidden-headers))\r
  95 +         (when (not (member header message-hidden-headers))\r
  96             (push header message-hidden-headers)))\r
  97         notmuch-mua-hidden-headers))\r