bbdb-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] Fix bbdb-mua-edit-field-sender for action=query


From: Sam Steingold
Subject: [PATCH] Fix bbdb-mua-edit-field-sender for action=query
Date: Tue, 22 Feb 2022 10:54:12 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (darwin)

Right now ";" does not let me edit the notes for the current sender record.
This patch fixes the issue.

--8<---------------cut here---------------start------------->8---
>From 270fc00d2afd4c4c84050926013e02d4a11f0194 Mon Sep 17 00:00:00 2001
From: Sam Steingold <sds@gnu.org>
Date: Tue, 22 Feb 2022 10:52:19 -0500
Subject: [PATCH] Fix bbdb-mua-edit-field-sender for action=query broken by
 a6f2ebcdb0c521990e034815de37ceaab5b13495

---
 ChangeLog        | 6 ++++++
 lisp/bbdb-mua.el | 3 ++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 3156935..1c5b2c4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-02-22  Sam Steingold  <sds@gnu.org>
+       Fix `bbdb-mua-edit-field-sender' for action=query broken by the last 
patch.
+       * lisp/bbdb-mua.el (bbdb-update-records): When the record already
+       exists and bbdb-mua-update-interactive-p is (query . create), this
+       function returns () instead of the record.
+
 2022-02-20  Roland Winkler  <winkler@gnu.org>
        Establish record-addresses associations before annotating records.
        * lisp/bbdb.el (bbdb-mua-interactive-action): Renamed from
diff --git a/lisp/bbdb-mua.el b/lisp/bbdb-mua.el
index 2117e98..807a23d 100644
--- a/lisp/bbdb-mua.el
+++ b/lisp/bbdb-mua.el
@@ -291,7 +291,8 @@ Usually this function is called by the wrapper 
`bbdb-mua-update-records'."
                  (if record (push record records)))
                 (t
                  (if (or (eq action 'create)
-                         (eq task 'create-current) ; and (eq action 'query)
+                         (eq action 'query)
+                         (eq task 'create-current)
                          (and record (eq action 'update)))
                      ;; If we have more than one record, all but the first
                      ;; one are new.  So no need to worry about duplicates.
-- 
2.24.3 (Apple Git-128)

--8<---------------cut here---------------end--------------->8---



-- 
Sam Steingold (http://sds.podval.org/) on darwin Ns 10.3.2113
http://childpsy.net http://calmchildstories.com http://steingoldpsychology.com
https://ij.org/ https://thereligionofpeace.com https://ffii.org
Calculus has its limits.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]