[elpa] master c084cc1: [gnorb] Update copyright years
branch: master commit c084cc1a84f5797baaa76c86ed347f41fe0d485f Author: Eric Abrahamsen Commit: Eric Abrahamsen [gnorb] Update copyright years --- packages/gnorb/gnorb-bbdb.el | 3 +-- packages/gnorb/gnorb-gnus.el | 3 +-- packages/gnorb/gnorb-helm.el | 2 +- packages/gnorb/gnorb-org.el | 3 +-- packages/gnorb/gnorb-registry.el | 2 +- packages/gnorb/gnorb-utils.el| 3 +-- packages/gnorb/gnorb.el | 2 +- packages/gnorb/nngnorb.el| 2 +- 8 files changed, 8 insertions(+), 12 deletions(-) diff --git a/packages/gnorb/gnorb-bbdb.el b/packages/gnorb/gnorb-bbdb.el index bf1f11e..53c9379 100644 --- a/packages/gnorb/gnorb-bbdb.el +++ b/packages/gnorb/gnorb-bbdb.el @@ -1,9 +1,8 @@ ;;; gnorb-bbdb.el --- The BBDB-centric functions of gnorb -*- lexical-binding: t -*- -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2020 Free Software Foundation, Inc. ;; Author: Eric Abrahamsen -;; Keywords: ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by diff --git a/packages/gnorb/gnorb-gnus.el b/packages/gnorb/gnorb-gnus.el index 56d2814..fff23a0 100644 --- a/packages/gnorb/gnorb-gnus.el +++ b/packages/gnorb/gnorb-gnus.el @@ -1,9 +1,8 @@ ;;; gnorb-gnus.el --- The gnus-centric fuctions of gnorb -*- lexical-binding: t -*- -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2020 Free Software Foundation, Inc. ;; Author: Eric Abrahamsen -;; Keywords: ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by diff --git a/packages/gnorb/gnorb-helm.el b/packages/gnorb/gnorb-helm.el index 8fa6309..f58f604 100644 --- a/packages/gnorb/gnorb-helm.el +++ b/packages/gnorb/gnorb-helm.el @@ -1,6 +1,6 @@ ;;; gnorb-helm.el --- Interface between Helm and Gnorb -*- lexical-binding: t; -*- -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2020 Free Software Foundation, Inc. ;; Author: Eric Abrahamsen diff --git a/packages/gnorb/gnorb-org.el b/packages/gnorb/gnorb-org.el index 802bf09..81cb176 100644 --- a/packages/gnorb/gnorb-org.el +++ b/packages/gnorb/gnorb-org.el @@ -1,9 +1,8 @@ ;;; gnorb-org.el --- The Org-centric functions of gnorb -*- lexical-binding: t -*- -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2020 Free Software Foundation, Inc. ;; Author: Eric Abrahamsen -;; Keywords: ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by diff --git a/packages/gnorb/gnorb-registry.el b/packages/gnorb/gnorb-registry.el index 10c0833..55608cb 100644 --- a/packages/gnorb/gnorb-registry.el +++ b/packages/gnorb/gnorb-registry.el @@ -1,6 +1,6 @@ ;;; gnorb-registry.el --- Registry implementation for Gnorb -*- lexical-binding: t -*- -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2020 Free Software Foundation, Inc. ;; Author: Eric Abrahamsen diff --git a/packages/gnorb/gnorb-utils.el b/packages/gnorb/gnorb-utils.el index 48af465..ce5ebc3 100644 --- a/packages/gnorb/gnorb-utils.el +++ b/packages/gnorb/gnorb-utils.el @@ -1,9 +1,8 @@ ;;; gnorb-utils.el --- Common utilities for all gnorb stuff -*- lexical-binding: t -*- -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2020 Free Software Foundation, Inc. ;; Author: Eric Abrahamsen -;; Keywords: ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by diff --git a/packages/gnorb/gnorb.el b/packages/gnorb/gnorb.el index 6e37738..b7eed14 100644 --- a/packages/gnorb/gnorb.el +++ b/packages/gnorb/gnorb.el @@ -1,6 +1,6 @@ ;;; gnorb.el --- Glue code between Gnus, Org, and BBDB -*- lexical-binding: t -*- -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2020 Free Software Foundation, Inc. ;; Version: 1.6.4 ;; Package-Requires: ((cl-lib "0.5")) diff --git a/packages/gnorb/nngnorb.el b/packages/gnorb/nngnorb.el index fd871e5..9375094 100644 --- a/packages/gnorb/nngnorb.el +++ b/packages/gnorb/nngnorb.el @@ -1,6 +1,6 @@ ;;; nngnorb.el --- Gnorb backend for Gnus -*- lexical-binding: t -*- -;; Copyright (C) 2018 Free Software Foundation, Inc. +;; Copyright (C) 2018-2020 Free Software Foundation, Inc. ;; Author: Eric Abrahamsen
[elpa] externals/orgalist b77f661: Update copyright years
branch: externals/orgalist commit b77f6611c6d40a4b0a3c2cc69e93f99804e7ef35 Author: Nicolas Goaziou Commit: Nicolas Goaziou Update copyright years --- orgalist.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/orgalist.el b/orgalist.el index 029209f..a2ca21b 100644 --- a/orgalist.el +++ b/orgalist.el @@ -1,6 +1,6 @@ ;;; orgalist.el --- Manage Org-like lists in non-Org buffers -*- lexical-binding: t; -*- -;; Copyright (C) 2017, 2018 Free Software Foundation, Inc. +;; Copyright (C) 2017-2020 Free Software Foundation, Inc. ;; Author: Nicolas Goaziou ;; Maintainer: Nicolas Goaziou
[elpa] externals/orgalist d9ffd2c: Fix "Symbol's function definition is void: nil" in Text mode
branch: externals/orgalist commit d9ffd2c6105809ae5d9149b9a65bb932996cdc72 Author: Nicolas Goaziou Commit: Nicolas Goaziou Fix "Symbol's function definition is void: nil" in Text mode * orgalist.el (orgalist--fill-item): Catch case when `fill-paragraph-function' was initially nil. (orgalist-mode): Advise `fill-paragraph-function' around it, not before. --- orgalist.el | 24 1 file changed, 16 insertions(+), 8 deletions(-) diff --git a/orgalist.el b/orgalist.el index e1f25bd..029209f 100644 --- a/orgalist.el +++ b/orgalist.el @@ -527,17 +527,26 @@ is meant to be used as a piece of advice on both (if item? (orgalist--call-in-item fill-function item?) (funcall fill-function))) -(defun orgalist--fill-item (justify) +(defun orgalist--fill-item (fill-function justify) "Fill item as a paragraph. -If JUSTIFY is non-nil, justify as well. +FILL-FUNCTION is the regular function used for filling +paragraphs, or nil. If JUSTIFY is non-nil, justify as well. Return nil outside of a list. This function is meant to be used as a piece of advice on `fill-paragraph-function'." - (let ((item? (orgalist--in-item-p))) -(when item? - (orgalist--call-in-item #'fill-paragraph item? justify) - t))) + (pcase (orgalist--in-item-p) +(`nil + ;; When `fill-paragraph-function' is nil in the current major + ;; mode (e.g.,in Text mode), the advice makes it look like + ;; a function anyway. As a consequence, calling it results in an + ;; error. Catch that error and call plain `fill-paragraph' + ;; instead. + (condition-case nil + (funcall fill-function justify) + (void-function (fill-paragraph justify +(item + (orgalist--call-in-item #'fill-paragraph item justify (defun orgalist--indent-line () "Indent current line in an item. @@ -815,8 +824,7 @@ C-c C-c `orgalist-check-item'" (setq-local org-plain-list-ordered-item-terminator ?.) (add-function :around (local 'fill-forward-paragraph-function) #'orgalist--fill-forward-wrapper) -(add-function :before-until - (local 'fill-paragraph-function) +(add-function :around (local 'fill-paragraph-function) #'orgalist--fill-item) ;; Unless `indent-line-function' is buffer-local before it is ;; advised with `add-function', the workaround for bug#31361 below
[elpa] externals/orgalist 6d166e1: Bump to version 1.11
branch: externals/orgalist commit 6d166e198fa3b883c35509416fbf96952e5e26d0 Author: Nicolas Goaziou Commit: Nicolas Goaziou Bump to version 1.11 --- orgalist.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/orgalist.el b/orgalist.el index a2ca21b..de97503 100644 --- a/orgalist.el +++ b/orgalist.el @@ -6,7 +6,7 @@ ;; Maintainer: Nicolas Goaziou ;; Keywords: convenience ;; Package-Requires: ((emacs "24.4")) -;; Version: 1.10 +;; Version: 1.11 ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by
[elpa] externals/bbdb a5d74e1 2/3: * lisp/bbdb.el (bbdb-mode): Bind buffer-undo-list to t.
branch: externals/bbdb
commit a5d74e10c7ade30da2b6f57170bd96f457108d86
Author: Roland Winkler
Commit: Roland Winkler
* lisp/bbdb.el (bbdb-mode): Bind buffer-undo-list to t.
---
bbdb.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/bbdb.el b/bbdb.el
index 979d495..9030978 100644
--- a/bbdb.el
+++ b/bbdb.el
@@ -4462,7 +4462,8 @@ Important variables:
There are numerous hooks. M-x apropos ^bbdb.*hook RET
\\{bbdb-mode-map}"
- (setq truncate-lines t
+ (setq buffer-undo-list t ;; No need to keep an undo list in *BBDB* buffer
+truncate-lines t
default-directory (file-name-directory bbdb-file)
mode-line-buffer-identification
(list 24 (buffer-name) " "
[elpa] externals/bbdb 4c5b098 1/3: bbdb.el: Declare functions used for insinuation.
branch: externals/bbdb commit 4c5b098f15036c942c36be394466fb3cd3bcac01 Author: Roland Winkler Commit: Roland Winkler bbdb.el: Declare functions used for insinuation. (bbdb-init-functions): Renamed from bbdb-init-forms. --- bbdb.el | 18 -- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/bbdb.el b/bbdb.el index f8b16d5..979d495 100644 --- a/bbdb.el +++ b/bbdb.el @@ -1654,7 +1654,21 @@ You really should not disable debugging. But it will speed things up.")) "Bind this to t to quiet things down - do not set it. See also `bbdb-silent'.") -(defvar bbdb-init-forms +(declare-function bbdb-insinuate-gnus "bbdb-gnus" ()) +(declare-function bbdb-insinuate-mh "bbdb-mhe" ()) +(declare-function bbdb-insinuate-rmail "bbdb-rmail" ()) +(declare-function bbdb-insinuate-vm "bbdb-vm" ()) +(declare-function bbdb-insinuate-mail "bbdb-message" ()) +(declare-function bbdb-insinuate-message "bbdb-message" ()) +(declare-function bbdb-insinuate-mu4e "bbdb-m4e" ()) +(declare-function bbdb-insinuate-sc "bbdb-sc" ()) +(declare-function bbdb-pgp "bbdb-pgp" ()) +(declare-function bbdb-insinuate-wl "bbdb-wl" ()) +(declare-function bbdb-anniv-diary-entries "bbdb-anniv" ()) + +(define-obsolete-variable-alias 'bbdb-init-forms + 'bbdb-init-functions "3.0") +(defvar bbdb-init-functions `((gnus ; gnus 3.15 or newer ,(lambda () (add-hook 'gnus-startup-hook #'bbdb-insinuate-gnus))) (mh-e ; MH-E @@ -4751,7 +4765,7 @@ See also `bbdb-mua-auto-update-init'. The latter is a separate function as this allows one to initialize the auto update feature for some MUAs only, for example only for outgoing messages." (dolist (mua muas) -(let ((init (cadr (assq mua bbdb-init-forms +(let ((init (cadr (assq mua bbdb-init-functions ;; Should we make sure that each insinuation happens only once? (cond ((functionp init) (funcall init))
[elpa] externals/bbdb updated (27487a7 -> 89d9399)
winkler pushed a change to branch externals/bbdb. from 27487a7 bbdb-mua-auto-update-init: Use wl-summary-redisplay-hook for wanderlust new 4c5b098 bbdb.el: Declare functions used for insinuation. (bbdb-init-functions): Renamed from bbdb-init-forms. new a5d74e1 * lisp/bbdb.el (bbdb-mode): Bind buffer-undo-list to t. new 89d9399 * lisp/bbdb-com.el (bbdb-search): New keywords :invert and :case-fold. Summary of changes: bbdb-com.el | 86 +++-- bbdb.el | 21 --- 2 files changed, 67 insertions(+), 40 deletions(-)
[elpa] externals/bbdb 89d9399 3/3: * lisp/bbdb-com.el (bbdb-search): New keywords :invert and :case-fold.
branch: externals/bbdb commit 89d93994177d2352f6458f28650c07decdcbcc1d Author: Roland Winkler Commit: Roland Winkler * lisp/bbdb-com.el (bbdb-search): New keywords :invert and :case-fold. --- bbdb-com.el | 86 +++-- 1 file changed, 49 insertions(+), 37 deletions(-) diff --git a/bbdb-com.el b/bbdb-com.el index 7396557..d4cd581 100644 --- a/bbdb-com.el +++ b/bbdb-com.el @@ -202,11 +202,16 @@ matching the regexps RE: Each of these keywords may appear multiple times. Other keywords: -:bool BOOLCombine the search for multiple fields using BOOL. - BOOL may be either `or' (match either field) - or `and' (match all fields) with default `or'. +:bool FUN Combine the search for multiple fields using FUN. + FUN must be a function that takes as many arguments + as there are search keywords in SPEC, for example + `or' (match either field, the default) + or `and' (match all fields). +:invert VAL Invert the search if VAL is non-nil. + The default is the return value of `bbdb-search-invert-p'. +:case-fold VALSearches ignore case if VAL is non-nil. + The default is the value of `bbdb-case-fold-search'. -To reverse the search, bind `bbdb-search-invert' to t. See also `bbdb-message-search' for fast searches using `bbdb-hashtable' but not allowing for regexps. @@ -228,16 +233,18 @@ This usage is discouraged." (push (list key val) newspec))) (setq spec (apply #'append newspec - (let* ((count 0) - (sym-list (mapcar (lambda (_) - (make-symbol - (format "bbdb-re-%d" (setq count (1+ count) - spec)) - (bool (make-symbol "bool")) - (not-invert (make-symbol "not-invert")) - (matches (make-symbol "matches")) - keyw re-list clauses) -(set bool ''or) ; default + ;; The following defaults are motivated historically by the use + ;; of `bbdb-search' in interactive commands. + ;; Non-interactively these defaults may not always be useful. + (let ((bool 'or) ; default +(case-fold 'bbdb-case-fold-search) ; default +(invert '(bbdb-search-invert-p)) ; default +(sym-list (let ((count 0)) +(mapcar (lambda (_) + (make-symbol + (format "bbdb-re-%d" (setq count (1+ count) +spec))) +keyw re-list clauses) ;; Check keys. (while (keywordp (setq keyw (car spec))) @@ -336,7 +343,7 @@ This usage is discouraged." (let ((sym (pop sym-list))) (push `(,sym ,(pop spec)) re-list) (push `(let ((mails (bbdb-record-mail record)) -(bbdb-case-fold-search t) ; there is no case for mails +(case-fold-search t) ; there is no case for mails m done) (if mails (while (and (setq m (pop mails)) (not done)) @@ -383,31 +390,36 @@ This usage is discouraged." clauses))) (`:bool - (set bool (pop spec))) + (setq bool (pop spec))) + +(`:invert + (setq invert (pop spec))) + +(`:case-fold + (setq case-fold (pop spec))) ;; Do we need other keywords? -(_ (error "Keyword `%s' undefines" keyw - -`(let ((case-fold-search bbdb-case-fold-search) - (,not-invert (not (bbdb-search-invert-p))) - ,@re-list ,matches) - ;; Are there any use cases for `bbdb-search' where BOOL is only - ;; known at run time? A smart byte compiler will hopefully - ;; simplify the code below if we know BOOL already at compile time. - ;; Alternatively, BOOL could also be a user function that - ;; defines more complicated boolian expressions. Yet then we loose - ;; the efficiency of `and' and `or' that evaluate its arguments - ;; as needed. We would need instead boolian macros that the compiler - ;; can analyze at compile time. - (if (eq 'and ,(symbol-value bool)) - (dolist (record ,records) - (unless (eq ,not-invert (not (and ,@clauses))) - (push record ,matches))) +(_ (error "Keyword `%s' undefined" keyw + +;; The clauses have the same order as the keywords. +(setq clauses (nreverse clauses)) + +;; Silly me! For the keyword :bool, we used to use double-quoted +;; arguments like ":bool 'or". Strip off one quote to preserve +;; backward compatibility. +(if (eq 'quote (car-safe bool)) +(setq bool (cadr bool))) + +(let ((not-invert (make-symbol "not-invert")) + (matches (make-symbol "matches"))) + `(let ((case-fold-search ,case-fold) + (,no
