[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb f3b9525 269/350: Temporarily abandon having record
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb f3b9525 269/350: Temporarily abandon having record-change-name accept strings |
Date: |
Mon, 14 Aug 2017 11:46:51 -0400 (EDT) |
branch: externals/ebdb
commit f3b9525540ec6b29d0ee257471f6e47e4ac6fc8d
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Temporarily abandon having record-change-name accept strings
* ebdb.el (ebdb-record-change-name): I've found no way to actually
make this work. I can't switch from a string argument to a
ebdb-field-name argument. There has to be some solution to this, but
I'm giving up for now.
* ebdb-mua.el (ebdb-annotate-message): Alter function to check for
name class explicity.
---
ebdb-mua.el | 12 +++++++++---
ebdb.el | 10 ----------
2 files changed, 9 insertions(+), 13 deletions(-)
diff --git a/ebdb-mua.el b/ebdb-mua.el
index 031ac3b..eeda7d7 100644
--- a/ebdb-mua.el
+++ b/ebdb-mua.el
@@ -865,6 +865,9 @@ Return the records matching ADDRESS or nil."
(record-class (if (eql (nth 3 address) 'organization)
'ebdb-record-organization
ebdb-default-record-class))
+ (name-class (if (eql record-class 'ebdb-record-organization)
+ 'ebdb-field-name-simple
+ ebdb-default-name-class))
(records (ebdb-message-search name mail))
created-p new-records)
(if (and (not records) (functionp update-p))
@@ -902,7 +905,8 @@ Return the records matching ADDRESS or nil."
;; Analyze the name part of the record.
(cond (created-p ; new record
- (ebdb-record-change-name record name))
+ (ebdb-record-change-name
+ record (ebdb-parse name-class name)))
((or (not name)
;; The following tests can differ for more complicated names
@@ -933,7 +937,8 @@ Return the records matching ADDRESS or nil."
(format "Keep name \"%s\" as an AKA? "
old-name))
(ebdb-record-insert-field
record (slot-value record 'name) 'aka)))
- (ebdb-record-change-name record name)
+ (ebdb-record-change-name
+ record (ebdb-parse name-class name))
(setq change-p 'name))
;; make new name an AKA?
@@ -998,7 +1003,8 @@ Return the records matching ADDRESS or nil."
(progn
(setq record (make-instance
ebdb-default-record-class))
(ebdb-db-add-record (car ebdb-db-list) record)
- (ebdb-record-change-name record name)
+ (ebdb-record-change-name
+ record (ebdb-parse name-class name))
(setq created-p t))))
(let ((mails (ebdb-record-mail record)))
diff --git a/ebdb.el b/ebdb.el
index cd720e6..eee4419 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2479,11 +2479,6 @@ priority."
(push `(organizations . ,o) f-list)))
(cl-call-next-method record f-list all))
-(cl-defmethod ebdb-record-change-name ((record ebdb-record-person)
- (name string))
- (let ((new-name (ebdb-parse ebdb-default-name-class name)))
- (cl-call-next-method record new-name)))
-
(cl-defmethod ebdb-record-related ((_record ebdb-record-person)
(field ebdb-field-relation))
(ebdb-gethash (slot-value field 'rel-uuid) 'uuid))
@@ -2718,11 +2713,6 @@ appropriate person record."
(when org
(ebdb-record-adopt-role-fields record org t))))
-(cl-defmethod ebdb-record-change-name ((org ebdb-record-organization)
- (name string))
- (let ((new-name (ebdb-parse 'ebdb-field-name-simple name)))
- (cl-call-next-method org new-name)))
-
(cl-defmethod ebdb-record-related ((_record ebdb-record-organization)
(field ebdb-field-role))
(ebdb-gethash (slot-value field 'record-uuid) 'uuid))
- [elpa] externals/ebdb 57b2514 276/350: Use ebdb-with-record-edits in more places, (continued)
- [elpa] externals/ebdb 57b2514 276/350: Use ebdb-with-record-edits in more places, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb f44a797 286/350: New function ebdb-mua-in-ebdb-buffer, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 4ce353e 237/350: Migrate more search routines to the ebdb-search-display thing, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 7040cad 247/350: Expand ebdb-helm to complete on mails as well, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb a6bc423 249/350: Remove unused customization groups, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 4ded53d 250/350: All vCard lines should be delimited with CRLF, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb a776d37 248/350: Don't use copy-sequence plus add-text-properties on strings, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 96b113d 251/350: New functions for folding/unfolding long vCard lines, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb b52cdc0 265/350: Record-insert|delete-field methods can find their own slots, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb fcee6ab 267/350: Protect against no current record when redisplaying, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb f3b9525 269/350: Temporarily abandon having record-change-name accept strings,
Eric Abrahamsen <=
- [elpa] externals/ebdb 1a31515 274/350: Fixes to record loading, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 01262e3 277/350: Mark EBDB buffers as modified after edits, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb cc83f62 197/350: Add protection around ebdb-record-uuid, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 4f3db7f 195/350: Save match data around ebdb-parse-i18n, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb fcf0702 275/350: Mark EBDB buffers as unmodified after save, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 88f5e12 261/350: Fill out functionality of gnorb messages field, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb a81769c 272/350: Allow custom hash predicates, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb e80753a 264/350: Change ebdb-record-change-name to accept strings, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb d3e1485 283/350: Reinstate the notice record hook, and move notice-record method, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb d8bc159 290/350: Fairly embarrassing oversight in setting ebdb buffers modified, Eric Abrahamsen, 2017/08/14