e0/f79654eea2a448bf9768474775c4cf8e190d2e

   1 Return-Path: <pieter@praet.org>\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 85193429E3B\r
   6         for <notmuch@notmuchmail.org>; Sat, 14 Jan 2012 01:06:54 -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.7\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-0.7 tagged_above=-999 required=5\r
  12         tests=[RCVD_IN_DNSWL_LOW=-0.7] 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 0A6BRkR3ua4p for <notmuch@notmuchmail.org>;\r
  16         Sat, 14 Jan 2012 01:06:53 -0800 (PST)\r
  17 Received: from mail-we0-f181.google.com (mail-we0-f181.google.com\r
  18         [74.125.82.181]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
  19         (No client certificate requested)\r
  20         by olra.theworths.org (Postfix) with ESMTPS id 9D388431FB6\r
  21         for <notmuch@notmuchmail.org>; Sat, 14 Jan 2012 01:06:52 -0800 (PST)\r
  22 Received: by werh12 with SMTP id h12so10658wer.26\r
  23         for <notmuch@notmuchmail.org>; Sat, 14 Jan 2012 01:06:51 -0800 (PST)\r
  24 Received: by 10.216.137.155 with SMTP id y27mr492319wei.53.1326532009089;\r
  25         Sat, 14 Jan 2012 01:06:49 -0800 (PST)\r
  26 Received: from localhost ([109.131.75.86])\r
  27         by mx.google.com with ESMTPS id 8sm6149791wiw.4.2012.01.14.01.06.47\r
  28         (version=TLSv1/SSLv3 cipher=OTHER);\r
  29         Sat, 14 Jan 2012 01:06:48 -0800 (PST)\r
  30 From: Pieter Praet <pieter@praet.org>\r
  31 To: David Bremner <david@tethera.net>\r
  32 Subject: [PATCH] emacs: logically group def{custom,face}s\r
  33 Date: Sat, 14 Jan 2012 10:04:58 +0100\r
  34 Message-Id: <1326531898-17356-1-git-send-email-pieter@praet.org>\r
  35 X-Mailer: git-send-email 1.7.8.1\r
  36 In-Reply-To: <87ty3ypsgp.fsf@praet.org>\r
  37 References: <87ty3ypsgp.fsf@praet.org>\r
  38 Cc: Notmuch Mail <notmuch@notmuchmail.org>\r
  39 X-BeenThere: notmuch@notmuchmail.org\r
  40 X-Mailman-Version: 2.1.13\r
  41 Precedence: list\r
  42 List-Id: "Use and development of the notmuch mail system."\r
  43         <notmuch.notmuchmail.org>\r
  44 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  45         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  46 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  47 List-Post: <mailto:notmuch@notmuchmail.org>\r
  48 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  49 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  50         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  51 X-List-Received-Date: Sat, 14 Jan 2012 09:06:54 -0000\r
  52 \r
  53 To allow for expansion whilst keeping everything tidy and organized,\r
  54 move all defcustom/defface variables to the following subgroups,\r
  55 defined in notmuch-lib.el:\r
  56 \r
  57 - Hello\r
  58 - Search\r
  59 - Show\r
  60 - Send\r
  61 - Crypto\r
  62 - Hooks\r
  63 - External Commands\r
  64 - Appearance\r
  65 \r
  66 As an added benefit, defcustom keyword args are now consistently\r
  67 in order of appearance @ defcustom's docstring (OCD much?).\r
  68 \r
  69 ---\r
  70  emacs/notmuch-address.el     |    3 +-\r
  71  emacs/notmuch-crypto.el      |   22 +++++++++++++-------\r
  72  emacs/notmuch-hello.el       |   34 +++++++++++++++++--------------\r
  73  emacs/notmuch-lib.el         |   45 ++++++++++++++++++++++++++++++++++++++++-\r
  74  emacs/notmuch-maildir-fcc.el |    6 ++--\r
  75  emacs/notmuch-message.el     |    2 +-\r
  76  emacs/notmuch-mua.el         |   21 ++++++++++---------\r
  77  emacs/notmuch-show.el        |   33 +++++++++++++++--------------\r
  78  emacs/notmuch.el             |   35 ++++++++++++++++++++------------\r
  79  9 files changed, 132 insertions(+), 69 deletions(-)\r
  80 \r
  81 diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el\r
  82 index 8eba7a0..2e8b840 100644\r
  83 --- a/emacs/notmuch-address.el\r
  84 +++ b/emacs/notmuch-address.el\r
  85 @@ -28,7 +28,8 @@\r
  86  single argument and output a list of possible matches, one per\r
  87  line."\r
  88    :type 'string\r
  89 -  :group 'notmuch)\r
  90 +  :group 'notmuch-send\r
  91 +  :group 'notmuch-external)\r
  92  \r
  93  (defvar notmuch-address-message-alist-member\r
  94    '("^\\(Resent-\\)?\\(To\\|B?Cc\\|Reply-To\\|From\\|Mail-Followup-To\\|Mail-Copies-To\\):"\r
  95 diff --git a/emacs/notmuch-crypto.el b/emacs/notmuch-crypto.el\r
  96 index ac30098..232c1a0 100644\r
  97 --- a/emacs/notmuch-crypto.el\r
  98 +++ b/emacs/notmuch-crypto.el\r
  99 @@ -34,38 +34,44 @@ The effect of setting this variable can be seen temporarily by\r
 100  providing a prefix when viewing a signed or encrypted message, or\r
 101  by providing a prefix when reloading the message in notmuch-show\r
 102  mode."\r
 103 -  :group 'notmuch\r
 104 -  :type 'boolean)\r
 105 +  :type 'boolean\r
 106 +  :group 'notmuch-crypto)\r
 107  \r
 108  (defface notmuch-crypto-part-header\r
 109    '((t (:foreground "blue")))\r
 110    "Face used for crypto parts headers."\r
 111 -  :group 'notmuch)\r
 112 +  :group 'notmuch-crypto\r
 113 +  :group 'notmuch-appearance)\r
 114  \r
 115  (defface notmuch-crypto-signature-good\r
 116    '((t (:background "green" :foreground "black")))\r
 117    "Face used for good signatures."\r
 118 -  :group 'notmuch)\r
 119 +  :group 'notmuch-crypto\r
 120 +  :group 'notmuch-appearance)\r
 121  \r
 122  (defface notmuch-crypto-signature-good-key\r
 123    '((t (:background "orange" :foreground "black")))\r
 124    "Face used for good signatures."\r
 125 -  :group 'notmuch)\r
 126 +  :group 'notmuch-crypto\r
 127 +  :group 'notmuch-appearance)\r
 128  \r
 129  (defface notmuch-crypto-signature-bad\r
 130    '((t (:background "red" :foreground "black")))\r
 131    "Face used for bad signatures."\r
 132 -  :group 'notmuch)\r
 133 +  :group 'notmuch-crypto\r
 134 +  :group 'notmuch-appearance)\r
 135  \r
 136  (defface notmuch-crypto-signature-unknown\r
 137    '((t (:background "red" :foreground "black")))\r
 138    "Face used for signatures of unknown status."\r
 139 -  :group 'notmuch)\r
 140 +  :group 'notmuch-crypto\r
 141 +  :group 'notmuch-appearance)\r
 142  \r
 143  (defface notmuch-crypto-decryption\r
 144    '((t (:background "purple" :foreground "black")))\r
 145    "Face used for encryption/decryption status messages."\r
 146 -  :group 'notmuch)\r
 147 +  :group 'notmuch-crypto\r
 148 +  :group 'notmuch-appearance)\r
 149  \r
 150  (define-button-type 'notmuch-crypto-status-button-type\r
 151    'action (lambda (button) (message (button-get button 'help-echo)))\r
 152 diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
 153 index 02017ce..2493a26 100644\r
 154 --- a/emacs/notmuch-hello.el\r
 155 +++ b/emacs/notmuch-hello.el\r
 156 @@ -35,12 +35,12 @@\r
 157  (defcustom notmuch-recent-searches-max 10\r
 158    "The number of recent searches to store and display."\r
 159    :type 'integer\r
 160 -  :group 'notmuch)\r
 161 +  :group 'notmuch-hello)\r
 162  \r
 163  (defcustom notmuch-show-empty-saved-searches nil\r
 164    "Should saved searches with no messages be listed?"\r
 165    :type 'boolean\r
 166 -  :group 'notmuch)\r
 167 +  :group 'notmuch-hello)\r
 168  \r
 169  (defun notmuch-sort-saved-searches (alist)\r
 170    "Generate an alphabetically sorted saved searches alist."\r
 171 @@ -60,7 +60,7 @@ alist to be used."\r
 172                  (const :tag "Sort alphabetically" notmuch-sort-saved-searches)\r
 173                  (function :tag "Custom sort function"\r
 174                            :value notmuch-sort-saved-searches))\r
 175 -  :group 'notmuch)\r
 176 +  :group 'notmuch-hello)\r
 177  \r
 178  (defvar notmuch-hello-indent 4\r
 179    "How much to indent non-headers.")\r
 180 @@ -68,12 +68,13 @@ alist to be used."\r
 181  (defcustom notmuch-show-logo t\r
 182    "Should the notmuch logo be shown?"\r
 183    :type 'boolean\r
 184 -  :group 'notmuch)\r
 185 +  :group 'notmuch-hello\r
 186 +  :group 'notmuch-appearance)\r
 187  \r
 188  (defcustom notmuch-show-all-tags-list nil\r
 189    "Should all tags be shown in the notmuch-hello view?"\r
 190    :type 'boolean\r
 191 -  :group 'notmuch)\r
 192 +  :group 'notmuch-hello)\r
 193  \r
 194  (defcustom notmuch-hello-tag-list-make-query nil\r
 195    "Function or string to generate queries for the all tags list.\r
 196 @@ -89,12 +90,12 @@ should return a filter for that tag, or nil to hide the tag."\r
 197                  (string :tag "Custom filter"\r
 198                          :value "tag:unread")\r
 199                  (function :tag "Custom filter function"))\r
 200 -  :group 'notmuch)\r
 201 +  :group 'notmuch-hello)\r
 202  \r
 203  (defcustom notmuch-hello-hide-tags nil\r
 204    "List of tags to be hidden in the \"all tags\"-section."\r
 205    :type '(repeat string)\r
 206 -  :group 'notmuch)\r
 207 +  :group 'notmuch-hello)\r
 208  \r
 209  (defface notmuch-hello-logo-background\r
 210    '((((class color)\r
 211 @@ -104,7 +105,8 @@ should return a filter for that tag, or nil to hide the tag."\r
 212        (background light))\r
 213       (:background "white")))\r
 214    "Background colour for the notmuch logo."\r
 215 -  :group 'notmuch)\r
 216 +  :group 'notmuch-hello\r
 217 +  :group 'notmuch-appearance)\r
 218  \r
 219  (defcustom notmuch-column-control t\r
 220    "Controls the number of columns for saved searches/tags in notmuch view.\r
 221 @@ -126,11 +128,11 @@ So:\r
 222    30.\r
 223  - if you don't want to worry about all of this nonsense, leave\r
 224    this set to `t'."\r
 225 -  :group 'notmuch\r
 226    :type '(choice\r
 227           (const :tag "Automatically calculated" t)\r
 228           (integer :tag "Number of characters")\r
 229 -         (float :tag "Fraction of window")))\r
 230 +         (float :tag "Fraction of window"))\r
 231 +  :group 'notmuch-hello)\r
 232  \r
 233  (defcustom notmuch-hello-thousands-separator " "\r
 234    "The string used as a thousands separator.\r
 235 @@ -138,18 +140,20 @@ So:\r
 236  Typically \",\" in the US and UK and \".\" or \" \" in Europe.\r
 237  The latter is recommended in the SI/ISO 31-0 standard and by the\r
 238  International Bureau of Weights and Measures."\r
 239 -  :group 'notmuch\r
 240 -  :type 'string)\r
 241 +  :type 'string\r
 242 +  :group 'notmuch-hello)\r
 243  \r
 244  (defcustom notmuch-hello-mode-hook nil\r
 245    "Functions called after entering `notmuch-hello-mode'."\r
 246 -  :group 'notmuch\r
 247 -  :type 'hook)\r
 248 +  :type 'hook\r
 249 +  :group 'notmuch-hello\r
 250 +  :group 'notmuch-hooks)\r
 251  \r
 252  (defcustom notmuch-hello-refresh-hook nil\r
 253    "Functions called after updating a `notmuch-hello' buffer."\r
 254    :type 'hook\r
 255 -  :group 'notmuch)\r
 256 +  :group 'notmuch-hello\r
 257 +  :group 'notmuch-hooks)\r
 258  \r
 259  (defvar notmuch-hello-url "http://notmuchmail.org"\r
 260    "The `notmuch' web site.")\r
 261 diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el\r
 262 index 0f856bf..f6f48e9 100644\r
 263 --- a/emacs/notmuch-lib.el\r
 264 +++ b/emacs/notmuch-lib.el\r
 265 @@ -28,17 +28,58 @@\r
 266    "Notmuch mail reader for Emacs."\r
 267    :group 'mail)\r
 268  \r
 269 +(defgroup notmuch-hello nil\r
 270 +  "Options concerning `notmuch-hello-mode'."\r
 271 +  :tag "Notmuch Hello"\r
 272 +  :group 'notmuch)\r
 273 +\r
 274 +(defgroup notmuch-search nil\r
 275 +  "Options concerning `notmuch-search-mode'."\r
 276 +  :tag "Notmuch Search"\r
 277 +  :group 'notmuch)\r
 278 +\r
 279 +(defgroup notmuch-show nil\r
 280 +  "Options concerning `notmuch-show-mode'."\r
 281 +  :tag "Notmuch Show"\r
 282 +  :group 'notmuch)\r
 283 +\r
 284 +(defgroup notmuch-send nil\r
 285 +  "Options concerning the sending of messages."\r
 286 +  :tag "Notmuch Send"\r
 287 +  :group 'notmuch)\r
 288 +\r
 289 +(defgroup notmuch-crypto nil\r
 290 +  "Options concerning the processing and fontification of\r
 291 +cryptographic MIME parts in `notmuch-show-mode'."\r
 292 +  :tag "Notmuch Crypto"\r
 293 +  :group 'notmuch)\r
 294 +\r
 295 +(defgroup notmuch-hooks nil\r
 296 +  "Run custom code on well-defined occasions."\r
 297 +  :tag "Notmuch Hooks"\r
 298 +  :group 'notmuch)\r
 299 +\r
 300 +(defgroup notmuch-external nil\r
 301 +  "Run more custom code on different well-defined occasions."\r
 302 +  :tag "Notmuch External Commands"\r
 303 +  :group 'notmuch)\r
 304 +\r
 305 +(defgroup notmuch-appearance nil\r
 306 +  "Options concerning how Notmuch looks."\r
 307 +  :tag "Notmuch Appearance"\r
 308 +  :group 'notmuch)\r
 309 +\r
 310  (defcustom notmuch-search-oldest-first t\r
 311    "Show the oldest mail first when searching."\r
 312    :type 'boolean\r
 313 -  :group 'notmuch)\r
 314 +  :group 'notmuch-search)\r
 315  \r
 316  ;;\r
 317  \r
 318  (defcustom notmuch-saved-searches nil\r
 319    "A list of saved searches to display."\r
 320    :type '(alist :key-type string :value-type string)\r
 321 -  :group 'notmuch)\r
 322 +  :group 'notmuch-hello)\r
 323  \r
 324  (defvar notmuch-folders nil\r
 325    "Deprecated name for what is now known as `notmuch-saved-searches'.")\r
 326 diff --git a/emacs/notmuch-maildir-fcc.el b/emacs/notmuch-maildir-fcc.el\r
 327 index 6fbf82d..dcfbc4b 100644\r
 328 --- a/emacs/notmuch-maildir-fcc.el\r
 329 +++ b/emacs/notmuch-maildir-fcc.el\r
 330 @@ -51,13 +51,13 @@ the database.path option in the notmuch configuration file).\r
 331  You will be prompted to create the directory if it does not exist\r
 332  yet when sending a mail."\r
 333  \r
 334 - :require 'notmuch-fcc-initialization\r
 335 - :group 'notmuch\r
 336   :type '(choice\r
 337          (const :tag "No FCC header" nil)\r
 338          (string :tag "A single folder")\r
 339          (repeat :tag "A folder based on the From header"\r
 340 -                (cons regexp (string :tag "Folder")))))\r
 341 +                (cons regexp (string :tag "Folder"))))\r
 342 + :require 'notmuch-fcc-initialization\r
 343 + :group 'notmuch-send)\r
 344  \r
 345  (defun notmuch-fcc-initialization ()\r
 346    "If notmuch-fcc-directories is set,\r
 347 diff --git a/emacs/notmuch-message.el b/emacs/notmuch-message.el\r
 348 index 08e5b17..264a5b9 100644\r
 349 --- a/emacs/notmuch-message.el\r
 350 +++ b/emacs/notmuch-message.el\r
 351 @@ -31,7 +31,7 @@ For example, if you wanted to add a \"replied\" tag and remove\r
 352  the \"inbox\" and \"todo\", you would set\r
 353      (\"replied\" \"-inbox\" \"-todo\"\)"\r
 354    :type 'list\r
 355 -  :group 'notmuch)\r
 356 +  :group 'notmuch-send)\r
 357  \r
 358  (defun notmuch-message-mark-replied ()\r
 359    ;; get the in-reply-to header and parse it for the message id.\r
 360 diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el\r
 361 index 32e2e30..e256302 100644\r
 362 --- a/emacs/notmuch-mua.el\r
 363 +++ b/emacs/notmuch-mua.el\r
 364 @@ -28,25 +28,26 @@\r
 365  \r
 366  (defcustom notmuch-mua-send-hook '(notmuch-mua-message-send-hook)\r
 367    "Hook run before sending messages."\r
 368 -  :group 'notmuch\r
 369 -  :type 'hook)\r
 370 +  :type 'hook\r
 371 +  :group 'notmuch-send\r
 372 +  :group 'notmuch-hooks)\r
 373  \r
 374  (defcustom notmuch-mua-user-agent-function 'notmuch-mua-user-agent-full\r
 375    "Function used to generate a `User-Agent:' string. If this is\r
 376  `nil' then no `User-Agent:' will be generated."\r
 377 -  :group 'notmuch\r
 378    :type '(choice (const :tag "No user agent string" nil)\r
 379                  (const :tag "Full" notmuch-mua-user-agent-full)\r
 380                  (const :tag "Notmuch" notmuch-mua-user-agent-notmuch)\r
 381                  (const :tag "Emacs" notmuch-mua-user-agent-emacs)\r
 382                  (function :tag "Custom user agent function"\r
 383 -                          :value notmuch-mua-user-agent-full)))\r
 384 +                          :value notmuch-mua-user-agent-full))\r
 385 +  :group 'notmuch-send)\r
 386  \r
 387  (defcustom notmuch-mua-hidden-headers '("^User-Agent:")\r
 388    "Headers that are added to the `message-mode' hidden headers\r
 389  list."\r
 390 -  :group 'notmuch\r
 391 -  :type '(repeat string))\r
 392 +  :type '(repeat string)\r
 393 +  :group 'notmuch-send)\r
 394  \r
 395  ;;\r
 396  \r
 397 @@ -154,16 +155,16 @@ OTHER-ARGS are passed through to `message-mail'."\r
 398  \r
 399  If this variable is left unset, then a list will be constructed from the\r
 400  name and addresses configured in the notmuch configuration file."\r
 401 -  :group 'notmuch\r
 402 -  :type '(repeat string))\r
 403 +  :type '(repeat string)\r
 404 +  :group 'notmuch-send)\r
 405  \r
 406  (defcustom notmuch-always-prompt-for-sender nil\r
 407    "Always prompt for the From: address when composing or forwarding a message.\r
 408  \r
 409  This is not taken into account when replying to a message, because in that case\r
 410  the From: header is already filled in by notmuch."\r
 411 -  :group 'notmuch\r
 412 -  :type 'boolean)\r
 413 +  :type 'boolean\r
 414 +  :group 'notmuch-send)\r
 415  \r
 416  (defvar notmuch-mua-sender-history nil)\r
 417  \r
 418 diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
 419 index 034db87..bff48f6 100644\r
 420 --- a/emacs/notmuch-show.el\r
 421 +++ b/emacs/notmuch-show.el\r
 422 @@ -47,8 +47,8 @@ For an open message, all of these headers will be made visible\r
 423  according to `notmuch-message-headers-visible' or can be toggled\r
 424  with `notmuch-show-toggle-headers'. For a closed message, only\r
 425  the first header in the list will be visible."\r
 426 -  :group 'notmuch\r
 427 -  :type '(repeat string))\r
 428 +  :type '(repeat string)\r
 429 +  :group 'notmuch-show)\r
 430  \r
 431  (defcustom notmuch-message-headers-visible t\r
 432    "Should the headers be visible by default?\r
 433 @@ -58,13 +58,13 @@ If this value is non-nil, then all of the headers defined in\r
 434  of each message. Otherwise, these headers will be hidden and\r
 435  `notmuch-show-toggle-headers' can be used to make the visible for\r
 436  any given message."\r
 437 -  :group 'notmuch\r
 438 -  :type 'boolean)\r
 439 +  :type 'boolean\r
 440 +  :group 'notmuch-show)\r
 441  \r
 442  (defcustom notmuch-show-relative-dates t\r
 443    "Display relative dates in the message summary line."\r
 444 -  :group 'notmuch\r
 445 -  :type 'boolean)\r
 446 +  :type 'boolean\r
 447 +  :group 'notmuch-show)\r
 448  \r
 449  (defvar notmuch-show-markup-headers-hook '(notmuch-show-colour-headers)\r
 450    "A list of functions called to decorate the headers listed in\r
 451 @@ -72,27 +72,27 @@ any given message."\r
 452  \r
 453  (defcustom notmuch-show-hook nil\r
 454    "Functions called after populating a `notmuch-show' buffer."\r
 455 -  :group 'notmuch\r
 456 -  :type 'hook)\r
 457 +  :type 'hook\r
 458 +  :group 'notmuch-show)\r
 459  \r
 460  (defcustom notmuch-show-insert-text/plain-hook '(notmuch-wash-wrap-long-lines\r
 461                                                  notmuch-wash-tidy-citations\r
 462                                                  notmuch-wash-elide-blank-lines\r
 463                                                  notmuch-wash-excerpt-citations)\r
 464    "Functions used to improve the display of text/plain parts."\r
 465 -  :group 'notmuch\r
 466    :type 'hook\r
 467    :options '(notmuch-wash-convert-inline-patch-to-part\r
 468              notmuch-wash-wrap-long-lines\r
 469              notmuch-wash-tidy-citations\r
 470              notmuch-wash-elide-blank-lines\r
 471 -            notmuch-wash-excerpt-citations))\r
 472 +            notmuch-wash-excerpt-citations)\r
 473 +  :group 'notmuch-show)\r
 474  \r
 475  ;; Mostly useful for debugging.\r
 476  (defcustom notmuch-show-all-multipart/alternative-parts t\r
 477    "Should all parts of multipart/alternative parts be shown?"\r
 478 -  :group 'notmuch\r
 479 -  :type 'boolean)\r
 480 +  :type 'boolean\r
 481 +  :group 'notmuch-show)\r
 482  \r
 483  (defcustom notmuch-show-indent-messages-width 1\r
 484    "Width of message indentation in threads.\r
 485 @@ -101,14 +101,15 @@ Messages are shown indented according to their depth in a thread.\r
 486  This variable determines the width of this indentation measured\r
 487  in number of blanks.  Defaults to `1', choose `0' to disable\r
 488  indentation."\r
 489 -  :group 'notmuch\r
 490 -  :type 'integer)\r
 491 +  :type 'integer\r
 492 +  :group 'notmuch-show\r
 493 +  :group 'notmuch-appearance)\r
 494  \r
 495  (defcustom notmuch-show-indent-multipart nil\r
 496    "Should the sub-parts of a multipart/* part be indented?"\r
 497    ;; dme: Not sure which is a good default.\r
 498 -  :group 'notmuch\r
 499 -  :type 'boolean)\r
 500 +  :type 'boolean\r
 501 +  :group 'notmuch-show)\r
 502  \r
 503  (defmacro with-current-notmuch-show-message (&rest body)\r
 504    "Evaluate body with current buffer set to the text of current message"\r
 505 diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
 506 index 1e61775..dca38af 100644\r
 507 --- a/emacs/notmuch.el\r
 508 +++ b/emacs/notmuch.el\r
 509 @@ -70,7 +70,7 @@ For example:\r
 510         (setq notmuch-search-result-format \(\(\"authors\" . \"%-40s\"\)\r
 511                                              \(\"subject\" . \"%s\"\)\)\)"\r
 512    :type '(alist :key-type (string) :value-type (string))\r
 513 -  :group 'notmuch)\r
 514 +  :group 'notmuch-search)\r
 515  \r
 516  (defvar notmuch-query-history nil\r
 517    "Variable to store minibuffer history for notmuch queries")\r
 518 @@ -199,7 +199,8 @@ For a mouse binding, return nil."\r
 519    "List of functions to call when notmuch displays the search results."\r
 520    :type 'hook\r
 521    :options '(hl-line-mode)\r
 522 -  :group 'notmuch)\r
 523 +  :group 'notmuch-search\r
 524 +  :group 'notmuch-hooks)\r
 525  \r
 526  (defvar notmuch-search-mode-map\r
 527    (let ((map (make-sparse-keymap)))\r
 528 @@ -306,27 +307,32 @@ For a mouse binding, return nil."\r
 529   '((((class color) (background light)) (:background "#f0f0f0"))\r
 530     (((class color) (background dark)) (:background "#303030")))\r
 531   "Face for the single-line message summary in notmuch-show-mode."\r
 532 - :group 'notmuch)\r
 533 + :group 'notmuch-show\r
 534 + :group 'notmuch-appearance)\r
 535  \r
 536  (defface notmuch-search-date\r
 537    '((t :inherit default))\r
 538    "Face used in search mode for dates."\r
 539 -  :group 'notmuch)\r
 540 +  :group 'notmuch-search\r
 541 +  :group 'notmuch-appearance)\r
 542  \r
 543  (defface notmuch-search-count\r
 544    '((t :inherit default))\r
 545    "Face used in search mode for the count matching the query."\r
 546 -  :group 'notmuch)\r
 547 +  :group 'notmuch-search\r
 548 +  :group 'notmuch-appearance)\r
 549  \r
 550  (defface notmuch-search-subject\r
 551    '((t :inherit default))\r
 552    "Face used in search mode for subjects."\r
 553 -  :group 'notmuch)\r
 554 +  :group 'notmuch-search\r
 555 +  :group 'notmuch-appearance)\r
 556  \r
 557  (defface notmuch-search-matching-authors\r
 558    '((t :inherit default))\r
 559    "Face used in search mode for authors matching the query."\r
 560 -  :group 'notmuch)\r
 561 +  :group 'notmuch-search\r
 562 +  :group 'notmuch-appearance)\r
 563  \r
 564  (defface notmuch-search-non-matching-authors\r
 565    '((((class color)\r
 566 @@ -338,7 +344,8 @@ For a mouse binding, return nil."\r
 567      (t\r
 568       (:italic t)))\r
 569    "Face used in search mode for authors not matching the query."\r
 570 -  :group 'notmuch)\r
 571 +  :group 'notmuch-search\r
 572 +  :group 'notmuch-appearance)\r
 573  \r
 574  (defface notmuch-tag-face\r
 575    '((((class color)\r
 576 @@ -350,7 +357,8 @@ For a mouse binding, return nil."\r
 577      (t\r
 578       (:bold t)))\r
 579    "Face used in search mode face for tags."\r
 580 -  :group 'notmuch)\r
 581 +  :group 'notmuch-search\r
 582 +  :group 'notmuch-appearance)\r
 583  \r
 584  (defun notmuch-search-mode ()\r
 585    "Major mode displaying results of a notmuch search.\r
 586 @@ -495,7 +503,7 @@ the messages that are about to be tagged"\r
 587  \r
 588    :type 'hook\r
 589    :options '(hl-line-mode)\r
 590 -  :group 'notmuch)\r
 591 +  :group 'notmuch-hooks)\r
 592  \r
 593  (defcustom notmuch-after-tag-hook nil\r
 594    "Hooks that are run after tags of a message are modified.\r
 595 @@ -506,7 +514,7 @@ a list of strings of the form \"+TAG\" or \"-TAG\".\r
 596  the messages that were tagged"\r
 597    :type 'hook\r
 598    :options '(hl-line-mode)\r
 599 -  :group 'notmuch)\r
 600 +  :group 'notmuch-hooks)\r
 601  \r
 602  (defun notmuch-search-set-tags (tags)\r
 603    (save-excursion\r
 604 @@ -662,7 +670,8 @@ attributes overriding earlier. A message having both \"delete\"\r
 605  and \"unread\" tags with the above settings would have a green\r
 606  foreground and blue background."\r
 607    :type '(alist :key-type (string) :value-type (custom-face-edit))\r
 608 -  :group 'notmuch)\r
 609 +  :group 'notmuch-search\r
 610 +  :group 'notmuch-appearance)\r
 611  \r
 612  (defun notmuch-search-color-line (start end line-tag-list)\r
 613    "Colorize lines in `notmuch-show' based on tags."\r
 614 @@ -997,7 +1006,7 @@ Note that the recommended way of achieving the same is using\r
 615    :type '(choice (const :tag "notmuch new" nil)\r
 616                  (const :tag "Disabled" "")\r
 617                  (string :tag "Custom script"))\r
 618 -  :group 'notmuch)\r
 619 +  :group 'notmuch-external)\r
 620  \r
 621  (defun notmuch-poll ()\r
 622    "Run \"notmuch new\" or an external script to import mail.\r
 623 -- \r
 624 1.7.8.1\r
 625 \r