[elpa] master 820a128 1/4: [gnorb] Improvements to gnorb-org-setup-message

[Eric Abrahamsen]

branch: master
commit 820a1282b606cf9e24145c9277c0604b77bddeb6
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

[gnorb] Improvements to gnorb-org-setup-message

* packages/gnorb/gnorb-org.el (gnorb-org-setup-message): Accept an
optional NOPROMPT argument that will attach all files unconditionally.
Do a better job of adding extra headers correctly, without snarfing
newlines. Don't add a newline before inserting text (why was I doing
that?).
---
 packages/gnorb/gnorb-org.el | 27 ++-
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/packages/gnorb/gnorb-org.el b/packages/gnorb/gnorb-org.el
index 7f51bb2..9c97af2 100644
--- a/packages/gnorb/gnorb-org.el
+++ b/packages/gnorb/gnorb-org.el
@@ -297,7 +297,7 @@ subtree (or REGION) for links, and use those instead."
 (defvar message-beginning-of-line)
 
 (defun gnorb-org-setup-message
-(&optional messages mails from cc bcc attachments text ids)
+(&optional messages mails from cc bcc attachments text ids noprompt)
   "Common message setup routine for other gnorb-org commands.
 MESSAGES is a list of gnus links pointing to messages -- we
 currently only use the first of the list. MAILS is a list of
@@ -334,25 +334,26 @@ headings."
  (funcall (intern (format "message-goto-%s" (car h
  (let ((message-beginning-of-line t)
(show-trailing-whitespace t))
-   (message-beginning-of-line)
-   (unless (bolp)
- (kill-line))
+   (message-beginning-of-header t)
(insert (cdr h))
 (dolist (h `((from . ,from) (cc . ,cc) (bcc . ,bcc)))
   (sh h)))
   ;; attach ATTACHMENTS
-  (map-y-or-n-p
-   (lambda (a) (format "Attach %s to outgoing message? "
-  (file-name-nondirectory a)))
-   (lambda (a)
- (mml-attach-file a (mm-default-file-encoding a)
- nil "attachment"))
-   attachments
-   '("file" "files" "attach"))
+  (if noprompt
+  (dolist (a attachments)
+   (mml-attach-file a (mm-default-file-encoding a)
+  nil "attachment"))
+(map-y-or-n-p
+ (lambda (a) (format "Attach %s to outgoing message? "
+(file-name-nondirectory a)))
+ (lambda (a)
+   (mml-attach-file a (mm-default-file-encoding a)
+   nil "attachment"))
+ attachments
+ '("file" "files" "attach")))
   ;; insert text, if any
   (when text
 (message-goto-body)
-(insert "\n")
 (if (bufferp text)
(insert-buffer-substring text)
   (insert text)))

[elpa] master ef102e0 4/4: [gnorb] Bump version to 1.6.8

[Eric Abrahamsen]

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

[gnorb] Bump version to 1.6.8
---
 packages/gnorb/gnorb.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/gnorb/gnorb.el b/packages/gnorb/gnorb.el
index e016d05..08c8d4f 100644
--- a/packages/gnorb/gnorb.el
+++ b/packages/gnorb/gnorb.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2018-2020  Free Software Foundation, Inc.
 
-;; Version: 1.6.7
+;; Version: 1.6.8
 ;; Package-Requires: ((cl-lib "0.5"))
 
 ;; Maintainer: Eric Abrahamsen 

[elpa] master 64a4d08 2/4: [gnorb] Check for live Gnus before searching messages

[Eric Abrahamsen]

branch: master
commit 64a4d085ec528d11bed6309fd0d03a6eafa9a03b
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

[gnorb] Check for live Gnus before searching messages

* packages/gnorb/gnorb-gnus.el (gnorb-gnus-search-messages): I thought
the existing check in nnir-run-gnorb was in the right place to catch
all this, but apparently not.
---
 packages/gnorb/gnorb-gnus.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/gnorb/gnorb-gnus.el b/packages/gnorb/gnorb-gnus.el
index 9d12e6a..46c1654 100644
--- a/packages/gnorb/gnorb-gnus.el
+++ b/packages/gnorb/gnorb-gnus.el
@@ -892,6 +892,8 @@ HEAD-TEXT, if present, as its name.  Otherwise create an
 ephemeral one, with RET as the value of its quit-config."
   (interactive)
   (require 'nnir)
+  (unless (gnus-alive-p)
+(gnus))
   (let* ((nnir-address (gnorb-gnus-find-gnorb-server))
 (name (if persist
   (read-string

[elpa] master ab1114b 3/4: [gnorb] Don't allow creation of new headings for incoming trigger

[Eric Abrahamsen]

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

[gnorb] Don't allow creation of new headings for incoming trigger

* packages/gnorb/gnorb-gnus.el (gnorb-gnus-incoming-do-todo): This
function should only be used to continue existing tracking
associations; org-capture should be used to create new ones.
---
 packages/gnorb/gnorb-gnus.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/gnorb/gnorb-gnus.el b/packages/gnorb/gnorb-gnus.el
index 46c1654..210b518 100644
--- a/packages/gnorb/gnorb-gnus.el
+++ b/packages/gnorb/gnorb-gnus.el
@@ -596,7 +596,7 @@ you'll stay in the Gnus summary buffer."
(throw 'target (setq targ h)
;; If not, use the refile interface to choose one.
(setq targ (org-refile-get-location
-   "Trigger heading" nil t))
+   "Trigger heading" nil))
(setq targ
  (save-window-excursion
(find-file (nth 1 targ))

[elpa] master updated (c3eafa9 -> ef102e0)

[Eric Abrahamsen]

girzel pushed a change to branch master.

  from  c3eafa9   packages/sql-beeline/sql-beeline.el: Initial commit
   new  820a128   [gnorb] Improvements to gnorb-org-setup-message
   new  64a4d08   [gnorb] Check for live Gnus before searching messages
   new  ab1114b   [gnorb] Don't allow creation of new headings for incoming 
trigger
   new  ef102e0   [gnorb] Bump version to 1.6.8


Summary of changes:
 packages/gnorb/gnorb-gnus.el |  4 +++-
 packages/gnorb/gnorb-org.el  | 27 ++-
 packages/gnorb/gnorb.el  |  2 +-
 3 files changed, 18 insertions(+), 15 deletions(-)

[elpa] externals/elisp-benchmarks c8fe76b: * benchmarks/pcase.el: Don't hide the real `pcase.el`

[Stefan Monnier]

branch: externals/elisp-benchmarks
commit c8fe76bab0ee16457ec9d3258741e4717f77d74f
Author: Stefan Monnier 
Commit: Stefan Monnier 

* benchmarks/pcase.el: Don't hide the real `pcase.el`
---
 benchmarks/pcase.el | 20 +++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/benchmarks/pcase.el b/benchmarks/pcase.el
index 22d9407..110027a 100644
--- a/benchmarks/pcase.el
+++ b/benchmarks/pcase.el
@@ -1,4 +1,4 @@
-;; -*- lexical-binding: t; -*-
+;;; bench/pcase.el --- Exercise code using pcase  -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2020 Free Software Foundation, Inc.
 
@@ -17,10 +17,28 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs.  If not, see .
 
+(eval-and-compile
+  ;; ¡FIXME!  The GNUmakefile of elpa.git uses:
+  ;;
+  ;;... -L $(dir $@) -f batch-byte-compile $<
+  ;;
+  ;; to compile each file.  This is handy for some cases such as files in
+  ;; `contrib' subdirectories but for this `pcase.el' file it causes this
+  ;; `pcase.el' to hide the *real* `pcase.el'.  So we workaround this problem
+  ;; here by removing the offending element from `load-path'.  Yuck!
+  ;;
+  ;; We should probably change GNUmakefile instead so it doesn't forcefully
+  ;; add the directory to `load-path', e.g. make this dependent on the
+  ;; presence of special file like `.dont-add-to-load-path'. 
+  (when load-file-name
+(setq load-path (remove (file-name-directory load-file-name) load-path
+
 ;;; Commentary:
 
 ;; Apply a simple pattern match defined with pcase on the element of a list.
 
+;;; Code:
+
 (require 'cl-lib)
 
 (defvar elb-pcase-len 5000)

[elpa] externals/ebdb 056b28a 1/4: Remove Makefile from repo

[Eric Abrahamsen]

branch: externals/ebdb
commit 056b28a4e8c30424401bd838ea396d41f172526f
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Remove Makefile from repo

There was no reason to make this part of the public repo to begin
with.

* .gitignore: And ignore.
---
 .gitignore |  2 +-
 Makefile   | 15 ---
 2 files changed, 1 insertion(+), 16 deletions(-)

diff --git a/.gitignore b/.gitignore
index f8500e6..e650f42 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,4 +2,4 @@
 ebdb-autoloads.el
 ebdb-pkg.el
 ChangeLog
-
+Makefile
diff --git a/Makefile b/Makefile
deleted file mode 100644
index 9b059ab..000
--- a/Makefile
+++ /dev/null
@@ -1,15 +0,0 @@
-# I have no idea how Makefiles work, and cribbed from the internet
-# just enough so I had something I could use for automating testing.
-
-EMACS=emacs
-
-.PHONY: all test clean
-
-all:
-   ${EMACS} -Q --batch -L . -f batch-byte-compile *.el
-
-test:
-   ${EMACS} -Q --batch -L . -l ert -l ebdb-test.el -f 
ert-run-tests-batch-and-exit
-
-clean:
-   rm *.elc

[elpa] externals/ebdb d35e158 3/4: Catch ebdb-record-unfound error when formatting relation fields

[Eric Abrahamsen]

branch: externals/ebdb
commit d35e1581c911080b4882ff54dde8b67a84745adc
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Catch ebdb-record-unfound error when formatting relation fields

* ebdb-com.el (ebdb-fmt-field): That was the whole point of having
this error.
---
 ebdb-com.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index 02f9e16..2f6ccd0 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -618,8 +618,10 @@ Print the first line, add an ellipsis, and add a tooltip."
 If FIELD really belongs to RECORD, display the \"other end\" of
 the relation.  If this RECORD is the \"other end\", display the
 record that actually owns the field."
-  (let ((rec (ebdb-record-related record field)))
-(ebdb-string rec)))
+  (condition-case nil
+  (let ((rec (ebdb-record-related record field)))
+   (ebdb-string rec))
+(ebdb-related-unfound "record not loaded")))
 
 (cl-defmethod ebdb-fmt-field ((_fmt ebdb-formatter-ebdb)
  (field ebdb-field-passport)

[elpa] externals/ebdb 8e0cd8d 2/4: Fix test

[Eric Abrahamsen]

branch: externals/ebdb
commit 8e0cd8d2ee5328f730e98da4aaf8e133fb09464a
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Fix test

* ebdb-test.el (ebdb-search-transform-and-fold): Since cleaning up
cache methods, it's necessary to initialize records before searching.
---
 ebdb-test.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ebdb-test.el b/ebdb-test.el
index 282fad4..15cdd51 100644
--- a/ebdb-test.el
+++ b/ebdb-test.el
@@ -483,7 +483,7 @@ If it doesn't exist, raise `ebdb-related-unfound'."
   (list (make-instance
  'ebdb-record-person
  :name (ebdb-parse 'ebdb-field-name-complex "Björk 
Jónsdóttir")
-
+  (ebdb-initialize recs)
   (let ((ebdb-case-fold-search nil)
(ebdb-char-fold-search nil)
(ebdb-search-transform-functions nil))

[elpa] externals/ebdb f29ac91 4/4: Bump version to 0.6.19

[Eric Abrahamsen]

branch: externals/ebdb
commit f29ac91a90a66376f0404cfb1f8ca922051885f0
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Bump version to 0.6.19
---
 ebdb.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ebdb.el b/ebdb.el
index b8332e3..5a75221 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2016-2020  Free Software Foundation, Inc.
 
-;; Version: 0.6.18
+;; Version: 0.6.19
 ;; Package-Requires: ((emacs "25.1") (cl-lib "0.5") (seq "2.15"))
 
 ;; Maintainer: Eric Abrahamsen 

[elpa] externals/ebdb updated (0b70386 -> f29ac91)

[Eric Abrahamsen]

girzel pushed a change to branch externals/ebdb.

  from  0b70386   Check calling convention of encode-time, bump to 0.6.18
   new  056b28a   Remove Makefile from repo
   new  8e0cd8d   Fix test
   new  d35e158   Catch ebdb-record-unfound error when formatting relation 
fields
   new  f29ac91   Bump version to 0.6.19


Summary of changes:
 .gitignore   |  2 +-
 Makefile | 15 ---
 ebdb-com.el  |  6 --
 ebdb-test.el |  2 +-
 ebdb.el  |  2 +-
 5 files changed, 7 insertions(+), 20 deletions(-)
 delete mode 100644 Makefile