[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnorb 16f1ab6 183/449: Make gnorb-registry-make-entry m
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnorb 16f1ab6 183/449: Make gnorb-registry-make-entry more careful |
Date: |
Fri, 27 Nov 2020 23:15:35 -0500 (EST) |
branch: externals/gnorb
commit 16f1ab6d3ca7989ffcfbbbb08349bd3c6161d149
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
Make gnorb-registry-make-entry more careful
* lisp/gnorb-registry.el (gnorb-registry-make-entry): If the entry
already exists, don't overwrite existing key values with nil values
passed to this function.
---
lisp/gnorb-registry.el | 17 +++++++++++------
1 file changed, 11 insertions(+), 6 deletions(-)
diff --git a/lisp/gnorb-registry.el b/lisp/gnorb-registry.el
index 7304a8f..95f24c5 100644
--- a/lisp/gnorb-registry.el
+++ b/lisp/gnorb-registry.el
@@ -68,12 +68,17 @@ sent. Save the relevant Org ids in the 'gnorb-ids key."
;; inefficient.
(when gnorb-tracking-enabled
(gnus-registry-get-or-make-entry msg-id)
- (gnus-registry-set-id-key msg-id 'sender (list sender))
- (gnus-registry-set-id-key msg-id 'subject (list subject))
- (gnus-registry-set-id-key msg-id 'gnorb-ids (if (stringp org-id)
- (list org-id)
- org-id))
- (gnus-registry-set-id-key msg-id 'group (list group))))
+ (when sender
+ (gnus-registry-set-id-key msg-id 'sender (list sender)))
+ (when subject
+ (gnus-registry-set-id-key msg-id 'subject (list subject)))
+ (when org-id
+ (let ((ids (gnus-registry-get-id-key msg-id 'gnorb-ids)))
+ (gnus-registry-set-id-key msg-id 'gnorb-ids (if (stringp org-id)
+ (cons org-id ids)
+ (append org-id ids)))))
+ (when group
+ (gnus-registry-set-id-key msg-id 'group (list group)))))
(defun gnorb-registry-capture ()
"When capturing from a Gnus message, add our new Org heading id
- [elpa] externals/gnorb b53c93f 354/449: Enormous quantities of compiler-inspired fixes, (continued)
- [elpa] externals/gnorb b53c93f 354/449: Enormous quantities of compiler-inspired fixes, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 4a8fa84 369/449: Fix nnir search routine, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb dfb2acd 375/449: Bug fix in mail tracking extraction, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb de4b0e8 145/449: Associate outgoing messages with arbitrary headings, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 0f18c45 311/449: Allow persistent nnir search groups, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 4f62ec8 374/449: Fix inevitable screwup in previous commit, bump version, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 3b81d8c 377/449: Don't mark the 'artno key as precious, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 5a88948 382/449: Fix gnorb-version command, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 2aab7c3 433/449: [gnorb] Use substitute-command-keys, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb afafa8a 424/449: * gnorb/gnorb-registry.el: Fix compilation warnings, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 16f1ab6 183/449: Make gnorb-registry-make-entry more careful,
Stefan Monnier <=
- [elpa] externals/gnorb e07c4cf 194/449: Refactor splitting of message reference headers, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb a0b039c 199/449: Probably shouldn't use assoc as a symbol, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 4cfd40c 207/449: Rework gnorb-org-handle-mail to use tracking, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 357c9c6 220/449: Always append function to message-exit-actions, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb cffdd60 221/449: Warn people of impending changes in README, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 294e1eb 224/449: Fix calls to gnorb-trigger-todo-action, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 73b7f47 227/449: Use org-element-map's arguments properly, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 82d1e46 230/449: New gnorb.org file, and elpaignore, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb e7b8a8b 233/449: First full draft of manual, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 004bdce 234/449: Create and install info manual, Stefan Monnier, 2020/11/27