75/2d7f1aa6f0cadfd663e78d17e9c808aa031706

   1 Return-Path: <stlman@poczta.fm>\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 333FC431FD7\r
   6         for <notmuch@notmuchmail.org>; Fri, 12 Dec 2014 11:10:06 -0800 (PST)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0.001\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0.001 tagged_above=-999 required=5\r
  12         tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, FREEMAIL_FROM=0.001,\r
  13         RCVD_IN_DNSWL_NONE=-0.0001] autolearn=disabled\r
  14 Received: from olra.theworths.org ([127.0.0.1])\r
  15         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  16         with ESMTP id 8+72mp1DlgnN for <notmuch@notmuchmail.org>;\r
  17         Fri, 12 Dec 2014 11:10:02 -0800 (PST)\r
  18 X-Greylist: delayed 920 seconds by postgrey-1.32 at olra;\r
  19         Fri, 12 Dec 2014 11:10:02 PST\r
  20 Received: from smtpo.poczta.interia.pl (smtpo.poczta.interia.pl\r
  21         [217.74.65.154])\r
  22         (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits))\r
  23         (No client certificate requested)\r
  24         by olra.theworths.org (Postfix) with ESMTPS id B837C431FBC\r
  25         for <notmuch@notmuchmail.org>; Fri, 12 Dec 2014 11:10:02 -0800 (PST)\r
  26 X-Interia-R: Interia\r
  27 X-Interia-R-IP: 89.65.17.18\r
  28 X-Interia-R-Helo: <localhost>\r
  29 Received: from localhost (89-65-17-18.dynamic.chello.pl [89.65.17.18])\r
  30         (using TLSv1 with cipher AES128-SHA (128/128 bits))\r
  31         (No client certificate requested)\r
  32         by www.poczta.fm (INTERIA.PL) with ESMTPSA;\r
  33         Fri, 12 Dec 2014 19:54:36 +0100 (CET)\r
  34 From: =?UTF-8?q?=C5=81ukasz=20Stelmach?= <stlman@poczta.fm>\r
  35 To: notmuch@notmuchmail.org\r
  36 Subject: [PATCH] emacs: do not change users' mail agent configuration\r
  37 Date: Fri, 12 Dec 2014 19:54:26 +0100\r
  38 Message-Id: <1418410466-26604-1-git-send-email-stlman@poczta.fm>\r
  39 X-Mailer: git-send-email 2.0.4\r
  40 X-Interia-Antivirus: OK\r
  41 X-IPL-SAS-SPAS: -4.4\r
  42 X-IPL-SAS-UREP: 0\r
  43 X-IPL-Envelope-To: stlman@poczta.fm\r
  44 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=interia.pl;\r
  45         s=biztos; t=1418410479;\r
  46         bh=L1FgsJxwDdqUKfuvGPJU7YVZWscisuvHX8Vf67dpuBY=;\r
  47         h=X-Interia-R:X-Interia-R-IP:X-Interia-R-Helo:From:To:Cc:Subject:\r
  48         Date:Message-Id:X-Mailer:X-Interia-Antivirus:X-IPL-SAS-SPAS:\r
  49         X-IPL-SAS-UREP:X-IPL-Envelope-To;\r
  50         b=j/6ja8Y4CZMGsKIgeI3SJ3uHtyeHAZDvLbbkwGMHZIAnfimYdvUzuJC61p2UEzJWc\r
  51         JxSPT50vH/1QSqwz+65kgZmYZ2seGCj1qQA7728nVeJsKyekZBCEQa2lTSZRSHP32z\r
  52         QgSrNELkiKeRA/mJYEfaGf4fuS2JlEaZ/yRgjlHg=\r
  53 X-Mailman-Approved-At: Sat, 13 Dec 2014 12:46:16 -0800\r
  54 Cc: =?UTF-8?q?=C5=81ukasz=20Stelmach?= <stlman@poczta.fm>\r
  55 X-BeenThere: notmuch@notmuchmail.org\r
  56 X-Mailman-Version: 2.1.13\r
  57 Precedence: list\r
  58 List-Id: "Use and development of the notmuch mail system."\r
  59         <notmuch.notmuchmail.org>\r
  60 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  61         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  62 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  63 List-Post: <mailto:notmuch@notmuchmail.org>\r
  64 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  65 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  66         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  67 X-List-Received-Date: Fri, 12 Dec 2014 19:10:06 -0000\r
  68 \r
  69 `mail-user-agent' is defined with defcustom and may be customised\r
  70 by users. It should not be set to arbitrary values in modules.\r
  71 \r
  72 To make use of that configuration value call `compose-mail' which\r
  73 starts user's preferred mail composition package as selected with\r
  74 the variable `mail-user-agent' instead of notmuch's hardcoded\r
  75 `message-mail'.\r
  76 ---\r
  77  NEWS                 | 10 ++++++++++\r
  78  emacs/notmuch-mua.el |  2 +-\r
  79  emacs/notmuch.el     |  2 --\r
  80  3 files changed, 11 insertions(+), 3 deletions(-)\r
  81 \r
  82 diff --git a/NEWS b/NEWS\r
  83 index 44e8d05..cf5b3c3 100644\r
  84 --- a/NEWS\r
  85 +++ b/NEWS\r
  86 @@ -64,6 +64,16 @@ Added `notmuch address` subcommand\r
  87  Emacs Interface\r
  88  ---------------\r
  89  \r
  90 +Fixed `mail-user-agent` handling\r
  91 +\r
  92 +  The value of the mail-user-agent variable is not forcibly set to\r
  93 +  `notmuch-user-agent`, regardles of how a user has customised it,\r
  94 +  everytime notmuch.el is loaded. This way, someone who used for example\r
  95 +  Gnus has her MUA and notmuch just as a search engine, doesn't have her\r
  96 +  configuration broken everytime notmuch.el is loaded. The user can now\r
  97 +  use her favourite mail composing package when replying messages in\r
  98 +  notmuch too.\r
  99 +\r
 100  Use the `j` key to access saved searches from anywhere in notmuch\r
 101  \r
 102    `j` is now globally bound to `notmuch-jump`, which provides fast,\r
 103 diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el\r
 104 index 2c58886..f02c7b5 100644\r
 105 --- a/emacs/notmuch-mua.el\r
 106 +++ b/emacs/notmuch-mua.el\r
 107 @@ -263,7 +263,7 @@ OTHER-ARGS are passed through to `message-mail'."\r
 108      (push (cons 'From (concat\r
 109                        (notmuch-user-name) " <" (notmuch-user-primary-email) ">")) other-headers))\r
 110  \r
 111 -  (apply #'message-mail to subject other-headers other-args)\r
 112 +  (apply #'compose-mail to subject other-headers other-args)\r
 113    (message-sort-headers)\r
 114    (message-hide-headers)\r
 115    (set-buffer-modified-p nil)\r
 116 diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
 117 index 218486a..80cab57 100644\r
 118 --- a/emacs/notmuch.el\r
 119 +++ b/emacs/notmuch.el\r
 120 @@ -1037,8 +1037,6 @@ notmuch buffers exist, run `notmuch'."\r
 121           (switch-to-buffer first))\r
 122        (notmuch))))\r
 123  \r
 124 -(setq mail-user-agent 'notmuch-user-agent)\r
 125 -\r
 126  (provide 'notmuch)\r
 127  \r
 128  ;; After provide to avoid loops if notmuch was require'd via notmuch-init-file.\r
 129 -- \r
 130 2.0.4\r
 131 \r