[elpa] master updated (b8c5937 -> 0142fa0)

[Eric Abrahamsen]

girzel pushed a change to branch master.

  from  b8c5937   * stream/tests/stream-tests.el: Require 'generator'
   new  f1c142b   Gnorb: The proper link type is "mailto", not "mail"
   new  0142fa0   Prefer defalias to fset


Summary of changes:
 packages/gnorb/gnorb-bbdb.el | 40 
 packages/gnorb/gnorb-gnus.el | 16 
 packages/gnorb/gnorb-org.el  |  4 ++--
 3 files changed, 30 insertions(+), 30 deletions(-)

[elpa] master 0142fa0 2/2: Prefer defalias to fset

[Eric Abrahamsen]

branch: master
commit 0142fa028afe67dbca12418ddbaf40f7bc318365
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Prefer defalias to fset

* packages/gnorb/gnorb-bbdb.el:
* packages/gnorb/gnorb-gnus.el: Use defalias to construct ad-hoc
  function symbols.
---
 packages/gnorb/gnorb-bbdb.el | 40 
 packages/gnorb/gnorb-gnus.el | 16 
 2 files changed, 28 insertions(+), 28 deletions(-)

diff --git a/packages/gnorb/gnorb-bbdb.el b/packages/gnorb/gnorb-bbdb.el
index dd129ab..1c41848 100644
--- a/packages/gnorb/gnorb-bbdb.el
+++ b/packages/gnorb/gnorb-bbdb.el
@@ -166,15 +166,15 @@ be composed, just as in `gnus-posting-styles'."
   :type 'list)
 
 (when (fboundp 'bbdb-record-xfield-string)
-  (fset (intern (format "bbdb-read-xfield-%s"
-   gnorb-bbdb-org-tag-field))
-   (lambda (&optional init)
- (gnorb-bbdb-read-org-tags init)))
+  (defalias (intern (format "bbdb-read-xfield-%s"
+   gnorb-bbdb-org-tag-field))
+(lambda (&optional init)
+  (gnorb-bbdb-read-org-tags init)))
 
-  (fset (intern (format "bbdb-display-%s-multi-line"
-   gnorb-bbdb-org-tag-field))
-   (lambda (record indent)
- (gnorb-bbdb-display-org-tags record indent
+  (defalias (intern (format "bbdb-display-%s-multi-line"
+   gnorb-bbdb-org-tag-field))
+(lambda (record indent)
+  (gnorb-bbdb-display-org-tags record indent
 
 (defun gnorb-bbdb-read-org-tags (&optional init)
   "Read Org mode tags, with `completing-read-multiple'."
@@ -518,22 +518,22 @@ layout type."
(t
 ""))
 
-(fset (intern (format "bbdb-display-%s-multi-line"
- gnorb-bbdb-messages-field))
-  (lambda (record indent)
-   (gnorb-bbdb-display-messages record 'multi indent)))
+(defalias (intern (format "bbdb-display-%s-multi-line"
+ gnorb-bbdb-messages-field))
+  (lambda (record indent)
+(gnorb-bbdb-display-messages record 'multi indent)))
 
-(fset (intern (format "bbdb-display-%s-one-line"
- gnorb-bbdb-messages-field))
-  (lambda (record)
-   (gnorb-bbdb-display-messages record 'one)))
+(defalias (intern (format "bbdb-display-%s-one-line"
+ gnorb-bbdb-messages-field))
+  (lambda (record)
+(gnorb-bbdb-display-messages record 'one)))
 
 ;; Don't allow direct editing of this field
 
-(fset (intern (format "bbdb-read-xfield-%s"
- gnorb-bbdb-messages-field))
-  (lambda (&optional _init)
-   (user-error "This field shouldn't be edited manually")))
+(defalias (intern (format "bbdb-read-xfield-%s"
+ gnorb-bbdb-messages-field))
+  (lambda (&optional _init)
+(user-error "This field shouldn't be edited manually")))
 
 ;; Open links from the *BBDB* buffer.
 
diff --git a/packages/gnorb/gnorb-gnus.el b/packages/gnorb/gnorb-gnus.el
index 4027870..77e21ce 100644
--- a/packages/gnorb/gnorb-gnus.el
+++ b/packages/gnorb/gnorb-gnus.el
@@ -908,10 +908,10 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
  (t " ")))
 " "))
 
-(fset (intern (concat "gnus-user-format-function-"
- gnorb-gnus-summary-mark-format-letter))
-  (lambda (header)
-   (gnorb-gnus-insert-format-letter-maybe header)))
+(defalias (intern (concat "gnus-user-format-function-"
+ gnorb-gnus-summary-mark-format-letter))
+  (lambda (header)
+(gnorb-gnus-insert-format-letter-maybe header)))
 
 (defun gnorb-gnus-insert-format-tags (header)
   (let* ((id (mail-header-message-id header))
@@ -924,10 +924,10 @@ option `gnorb-gnus-hint-relevant-article' is non-nil."
 ":" (mapconcat #'identity tags ":") ":")
   "")))
 
-(fset (intern (concat "gnus-user-format-function-"
- gnorb-gnus-summary-tags-format-letter))
-  (lambda (header)
-   (gnorb-gnus-insert-format-tags header)))
+(defalias (intern (concat "gnus-user-format-function-"
+ gnorb-gnus-summary-tags-format-letter))
+  (lambda (header)
+(gnorb-gnus-insert-format-tags header)))
 
 ;;;###autoload
 (defun gnorb-gnus-view ()

[elpa] master f1c142b 1/2: Gnorb: The proper link type is "mailto", not "mail"

[Eric Abrahamsen]

branch: master
commit f1c142b6db734f2867433681fd8f61565694c0fe
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Gnorb: The proper link type is "mailto", not "mail"

* packages/gnorb/gnorb-org.el (gnorb-org-extract-links,
  gnorb-org-handle-mail): Fix link type.
---
 packages/gnorb/gnorb-org.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/gnorb/gnorb-org.el b/packages/gnorb/gnorb-org.el
index 00b46d6..485b988 100644
--- a/packages/gnorb/gnorb-org.el
+++ b/packages/gnorb/gnorb-org.el
@@ -223,7 +223,7 @@ we came from."
  (insert s)
  (insert "\n"))
(goto-char (point-min))
-   (gnorb-scan-links (point-max) 'gnus 'mail 'bbdb 'ebdb)
+   (gnorb-scan-links (point-max) 'gnus 'mailto 'bbdb 'ebdb)
 
 (defun gnorb-org-extract-mail-stuff (&optional arg region)
   "Decide how to hande the Org heading under point as an email task.
@@ -484,7 +484,7 @@ composed.  FILE is a file to attach to the message."
(gnorb-bbdb-configure-posting-styles (list (car 
b-recs))
  (gnorb-org-setup-message
   (alist-get 'gnus links)
-  (append mails (alist-get 'mail links))
+  (append mails (alist-get 'mailto links))
   from cc bcc
   attachments text org-id))
 

[elpa] externals/dash c287454: * dev/examples.el: Also require dash-functional for -cut and friends

[Stefan Monnier]

branch: externals/dash
commit c287454fa350452d6d3df5920499d8bb9733898a
Author: Stefan Monnier 
Commit: Stefan Monnier 

* dev/examples.el: Also require dash-functional for -cut and friends
---
 dev/examples.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/dev/examples.el b/dev/examples.el
index 08961bb..1f83414 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -23,6 +23,7 @@
 ;;; Code:
 
 (require 'dash)
+(require 'dash-functional)
 (eval-when-compile
   (unless (fboundp 'def-example-group)
 (require 'examples-to-tests "dev/examples-to-tests")))
@@ -39,8 +40,8 @@
 (defun approx-equal (u v)
   (or (= u v)
   (< (/ (abs (- u v))
-(max (abs u) (abs v)))
- dash--epsilon)))
+(max (abs u) (abs v)))
+ dash--epsilon)))
 
 (def-example-group "Maps"
   "Functions in this category take a transforming function, which