c9/50f6f37e952e88f70f7f9972a08d9ff1e4ff66

   1 Return-Path: <david@tethera.net>\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 arlo.cworth.org (Postfix) with ESMTP id 1187E6DE0188\r
   6  for <notmuch@notmuchmail.org>; Thu, 12 May 2016 08:55:32 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at cworth.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: -0.013\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-0.013 tagged_above=-999 required=5\r
  12  tests=[AWL=-0.002, SPF_PASS=-0.001, T_RP_MATCHES_RCVD=-0.01]\r
  13  autolearn=disabled\r
  14 Received: from arlo.cworth.org ([127.0.0.1])\r
  15  by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024)\r
  16  with ESMTP id yiWSDONuOJeu for <notmuch@notmuchmail.org>;\r
  17  Thu, 12 May 2016 08:55:24 -0700 (PDT)\r
  18 Received: from fethera.tethera.net (fethera.tethera.net [198.245.60.197])\r
  19  by arlo.cworth.org (Postfix) with ESMTPS id D41756DE00D3\r
  20  for <notmuch@notmuchmail.org>; Thu, 12 May 2016 08:55:23 -0700 (PDT)\r
  21 Received: from remotemail by fethera.tethera.net with local (Exim 4.84)\r
  22  (envelope-from <david@tethera.net>)\r
  23  id 1b0sxG-0006MK-FP; Thu, 12 May 2016 11:55:14 -0400\r
  24 Received: (nullmailer pid 31223 invoked by uid 1000);\r
  25  Thu, 12 May 2016 15:55:19 -0000\r
  26 From: David Bremner <david@tethera.net>\r
  27 To: Sanjoy Mahajan <sanjoy@olin.edu>, notmuch@notmuchmail.org\r
  28 Subject: Re: slight workaround needed to use gnus-alias\r
  29 In-Reply-To: <87lh3f1fb8.fsf@insight.mit.edu>\r
  30 References: <87lh3f1fb8.fsf@insight.mit.edu>\r
  31 User-Agent: Notmuch/0.22 (http://notmuchmail.org) Emacs/24.5.1\r
  32  (x86_64-pc-linux-gnu)\r
  33 Date: Thu, 12 May 2016 12:55:19 -0300\r
  34 Message-ID: <87zirv2rvc.fsf@zancas.localnet>\r
  35 MIME-Version: 1.0\r
  36 Content-Type: text/plain\r
  37 X-BeenThere: notmuch@notmuchmail.org\r
  38 X-Mailman-Version: 2.1.20\r
  39 Precedence: list\r
  40 List-Id: "Use and development of the notmuch mail system."\r
  41  <notmuch.notmuchmail.org>\r
  42 List-Unsubscribe: <https://notmuchmail.org/mailman/options/notmuch>,\r
  43  <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  44 List-Archive: <http://notmuchmail.org/pipermail/notmuch/>\r
  45 List-Post: <mailto:notmuch@notmuchmail.org>\r
  46 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  47 List-Subscribe: <https://notmuchmail.org/mailman/listinfo/notmuch>,\r
  48  <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  49 X-List-Received-Date: Thu, 12 May 2016 15:55:32 -0000\r
  50 \r
  51 Sanjoy Mahajan <sanjoy@olin.edu> writes:\r
  52 \r
  53 >\r
  54 > (require 'gnus-alias)\r
  55 > (gnus-alias-init)\r
  56 > ;;; upstream version checks just for message-mode, but notmuch uses\r
  57 > ;;; notmuch-message-mode, which is derived from message-mode\r
  58 > (defun gnus-alias-ensure-message-mode ()\r
  59 >   "Assert that the current buffer is a message buffer."\r
  60 >   (when (not (derived-mode-p 'notmuch-message-mode))\r
  61 >     (gnus-alias-error "Must be in `message-mode' or mode derived from it. ")))\r
  62 > (add-hook 'message-setup-hook 'gnus-alias-determine-identity)\r
  63 \r
  64 Maybe upstream Emacs would accept something like that if it says\r
  65 "(derived-mode-p 'message-mode)".\r
  66 \r
  67 d\r