[elpa] externals/gnorb 6fd368d 314/449: Provide more format marks in summary buffers

[Stefan Monnier]

branch: externals/gnorb
commit 6fd368d9fca2390160e142b7c0f3479bee0258d7
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Provide more format marks in summary buffers
    
    * gnorb-gnus.el (gnorb-gnus-summary-tracked-mark): New customization
      option.  Different marks are shown in the format line depending on
      whether the message is already associated with a heading, or merely
      potentially related to a heading.
      (gnorb-gnus-insert-format-letter-maybe): Use new format mark.
    
    * gnorb.org: Document.
    * gnorb.texi:
    * gnorb.info:
---
 gnorb-gnus.el | 15 ++++++++++++---
 gnorb.info    | 29 +++++++++++++++++------------
 gnorb.org     | 19 ++++++++++++-------
 gnorb.texi    | 22 ++++++++++++++--------
 4 files changed, 55 insertions(+), 30 deletions(-)

diff --git a/gnorb-gnus.el b/gnorb-gnus.el
index 7326c98..970bc74 100644
--- a/gnorb-gnus.el
+++ b/gnorb-gnus.el
@@ -107,6 +107,12 @@ Basically behave as if all attachments have 
\":gnus-attachments t\"."
   :group 'gnorb-gnus
   :type 'string)
 
+(defcustom gnorb-gnus-summary-tracked-mark "&"
+  "Default mark to insert in the summary format line of articles
+  that are already tracked by TODO headings."
+  :group 'gnorb-gnus
+  :type 'string)
+
 (defcustom gnorb-gnus-trigger-refile-targets
   '((org-agenda-files :maxlevel . 4))
   "A value to use as an equivalent of `org-refile-targets' (which
@@ -733,9 +739,12 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
   (if (not (memq (car (gnus-find-method-for-group
                       gnus-newsgroup-name))
                 '(nnvirtual nnir)))
-      (if (gnorb-find-tracked-headings header)
-         gnorb-gnus-summary-mark
-       " ")
+      (cond ((gnus-registry-get-id-key
+             (mail-header-message-id header) 'gnorb-ids)
+            gnorb-gnus-summary-tracked-mark)
+           ((gnorb-find-tracked-headings header)
+            gnorb-gnus-summary-mark)
+           (t " "))
     " "))
 
 (fset (intern (concat "gnus-user-format-function-"
diff --git a/gnorb.info b/gnorb.info
index 0a9da39..9f4850b 100644
--- a/gnorb.info
+++ b/gnorb.info
@@ -288,18 +288,19 @@ display a message in the minibuffer when opening 
potentially relevant
 messages.  You can then use ‘gnorb-gnus-incoming-to-todo’ to trigger an
 action on the relevant TODO.
 
-   This hinting can happen in the Gnus summary buffer as well.  If you
-use the escape indicated by ‘gnorb-gnus-summary-mark-format-letter” as
-part of your ‘gnus-summary-line-format’, articles that are relevant to
-TODOs will be marked with a special character in the Summary buffer, as
-determined by ‘gnorb-gnus-summary-mark’.  By default, the format letter
-is “g” (meaning it is used as “%ug” in the format line), and the mark is
-“¡”.
+   This hinting can happen in the Gnus summary buffer as well. If you
+use the escape indicated by ‘gnorb-gnus-summary-mark-format-letter’ as
+part of your ‘gnus-summary-line-format’, articles that may be relevant
+to TODOs will be marked with a special character in the Summary
+buffer, as determined by ‘gnorb-gnus-summary-mark’. By default, the
+format letter is “g” (meaning it is used as “%ug” in the format line),
+and the mark is “&” for messages that are already tracked, and “¡” for
+messages that may be relevant.
 
 
 File: gnorb.info,  Node: Message Attachments,  Next: Registry Usage,  Prev: 
Hinting in Gnus,  Up: Email Tracking
 
-4.5 Message Attachments
+4.6 Message Attachments
 =======================
 
 Gnorb simplifies the handling of attachments that you receive in emails.
@@ -661,9 +662,13 @@ File: gnorb.info,  Node: User Optionsxx,  Prev: Viewing 
Org headlines relevant t
      relevant to Org TODOs.  Defaults to “g”, meaning it should be used
      as “%ug” in the format line.
 ‘`gnorb-gnus-summary-mark'’
-     The mark used to indicate relevant messages in the Summary buffer,
-     when ‘gnorb-gnus-summary-mark-format-letter’ is present in the
-     format line.  Defaults to “¡”.
+     The mark used to indicate potentially relevant messages in the
+     Summary buffer, when ‘gnorb-gnus-summary-mark-format-letter’ is
+     present in the format line.  Defaults to “¡”.
+‘`gnorb-gnus-summary-tracked-mark'’
+     The mark used to indicate already-tracked messages in the Summary
+     buffer, when ‘gnorb-gnus-summary-mark-format-letter’ is present in
+     the format line.  Defaults to “&”.
 
 
 File: gnorb.info,  Node: Suggested Keybindings,  Prev: Misc Gnus,  Up: Top
@@ -744,7 +749,7 @@ Node: User Optionsx22586
 Node: Misc Gnus25323
 Node: Viewing Org headlines relevant to a message25536
 Node: User Optionsxx25851
-Node: Suggested Keybindings28615
+Node: Suggested Keybindings28858
 
 End Tag Table
 
diff --git a/gnorb.org b/gnorb.org
index c39d61f..9c4e523 100644
--- a/gnorb.org
+++ b/gnorb.org
@@ -191,11 +191,12 @@ action on the relevant TODO.
 
 This hinting can happen in the Gnus summary buffer as well. If you use
 the escape indicated by `gnorb-gnus-summary-mark-format-letter" as
-part of your `gnus-summary-line-format', articles that are relevant to
-TODOs will be marked with a special character in the Summary buffer,
-as determined by `gnorb-gnus-summary-mark'. By default, the format
-letter is "g" (meaning it is used as "%ug" in the format line), and
-the mark is "¡".
+part of your `gnus-summary-line-format', articles that may be relevant
+to TODOs will be marked with a special character in the Summary
+buffer, as determined by `gnorb-gnus-summary-mark'. By default, the
+format letter is "g" (meaning it is used as "%ug" in the format line),
+and the mark is "&" for messages that are already tracked, and "¡" for
+messages that may be relevant.
 ** Message Attachments
 :PROPERTIES:
 :END:
@@ -454,10 +455,14 @@ heading to jump to that heading.
      use as part of your `gnus-summary-line-format', to indicate
      messages which might be relevant to Org TODOs. Defaults to "g",
      meaning it should be used as "%ug" in the format line.
-- `gnorb-gnus-summary-mark' :: The mark used to indicate relevant
-     messages in the Summary buffer, when
+- `gnorb-gnus-summary-mark' :: The mark used to indicate potentially
+     relevant messages in the Summary buffer, when
      `gnorb-gnus-summary-mark-format-letter' is present in the format
      line. Defaults to "¡".
+- `gnorb-gnus-summary-tracked-mark' :: The mark used to indicate
+     already-tracked messages in the Summary buffer, when
+     `gnorb-gnus-summary-mark-format-letter' is present in the format
+     line. Defaults to "&".
 * Suggested Keybindings
 :PROPERTIES:
 :ID:       de1b2579-86c2-4bb1-b77e-3467a3d2b3c7
diff --git a/gnorb.texi b/gnorb.texi
index ad4a876..abe239f 100644
--- a/gnorb.texi
+++ b/gnorb.texi
@@ -295,12 +295,13 @@ messages. You can then use `gnorb-gnus-incoming-to-todo' 
to trigger an
 action on the relevant TODO.
 
 This hinting can happen in the Gnus summary buffer as well. If you use
-the escape indicated by `gnorb-gnus-summary-mark-format-letter'' as
-part of your `gnus-summary-line-format', articles that are relevant to
-TODOs will be marked with a special character in the Summary buffer,
-as determined by `gnorb-gnus-summary-mark'. By default, the format
-letter is ``g'' (meaning it is used as ``%ug'' in the format line), and
-the mark is ``¡''.
+the escape indicated by `gnorb-gnus-summary-mark-format-letter`` as
+part of your `gnus-summary-line-format', articles that may be relevant
+to TODOs will be marked with a special character in the Summary
+buffer, as determined by `gnorb-gnus-summary-mark'. By default, the
+format letter is ``g'' (meaning it is used as ``%ug'' in the format line),
+and the mark is ``&'' for messages that are already tracked, and ``¡'' for
+messages that may be relevant.
 
 @node Message Attachments
 @section Message Attachments
@@ -640,10 +641,15 @@ use as part of your `gnus-summary-line-format', to 
indicate
 messages which might be relevant to Org TODOs. Defaults to ``g'',
 meaning it should be used as ``%ug'' in the format line.
 @item `gnorb-gnus-summary-mark'
-The mark used to indicate relevant
-messages in the Summary buffer, when
+The mark used to indicate potentially
+relevant messages in the Summary buffer, when
 `gnorb-gnus-summary-mark-format-letter' is present in the format
 line. Defaults to ``¡''.
+@item `gnorb-gnus-summary-tracked-mark'
+The mark used to indicate
+already-tracked messages in the Summary buffer, when
+`gnorb-gnus-summary-mark-format-letter' is present in the format
+line. Defaults to ``&''.
 @end table
 
 @node Suggested Keybindings