[elpa] externals/ebdb cec392d: Upgrade instances of old gnus splitting fields

[Eric Abrahamsen]

branch: externals/ebdb
commit cec392d4f607856a8388f50c1d6436dbe93f961a
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Upgrade instances of old gnus splitting fields
    
    * ebdb-gnus.el: Re-instate stubs for ebdb-gnus-private-field and
      ebdb-gnus-imap field, and override their make-instance methods to
      return instances of ebdb-field-mail-folder instead.
    * ebdb.el: Bump version.
---
 ebdb-gnus.el | 22 ++++++++++++++++++++++
 ebdb.el      |  2 +-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/ebdb-gnus.el b/ebdb-gnus.el
index a546a01..144a6fc 100644
--- a/ebdb-gnus.el
+++ b/ebdb-gnus.el
@@ -143,6 +143,28 @@ addresses better than the traditionally static global 
scorefile."
 
 ;;; Gnus splitting support
 
+;; First, catch and upgrade instances of `ebdb-gnus-private-field' and
+;; `ebdb-gnus-imap-field'.  These upgrade routines were put in place
+;; September 3, 2017.  Give it... a year?  Two?  Then delete them.
+
+;;;###autoload
+(defclass ebdb-gnus-private-field (ebdb-field-user)
+  ((group
+    :initarg :group)))
+
+;;;###autoload
+(defclass ebdb-gnus-imap-field (ebdb-field-user)
+  ((group
+    :initarg :group)))
+
+(cl-defmethod make-instance ((_cls (subclass ebdb-gnus-private-field)) &rest 
slots)
+  (apply #'make-instance 'ebdb-field-mail-folder
+        (list :folder (plist-get slots :group))))
+
+(cl-defmethod make-instance ((_cls (subclass ebdb-gnus-imap-field)) &rest 
slots)
+  (apply #'make-instance 'ebdb-field-mail-folder
+        (list :folder (plist-get slots :group))))
+
 (defun ebdb/gnus-split-folders-list ()
   "Return a list of \( \"From\" mail-regexp imap-folder-name\) tuples
 based on the contents of the EBDB.
diff --git a/ebdb.el b/ebdb.el
index 73b64c3..709138f 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2016-2017  Free Software Foundation, Inc.
 
-;; Version: 0.3
+;; Version: 0.3.1
 ;; Package-Requires: ((emacs "25.1") (cl-lib "0.5") (seq "2.15"))
 
 ;; Maintainer: Eric Abrahamsen <address@hidden>