Changes committed gnus/lisp (24 files)
"Miles Bader" <[email protected]>
| Newsgroups | gmane.emacs.gnus.commits |
|---|---|
| Message-ID | <[email protected]> |
Modified: ChangeLog gnus-art.el gnus-bookmark.el gnus-dired.el
gnus-draft.el gnus-group.el gnus-msg.el gnus-score.el
gnus-sum.el gnus-util.el gnus.el imap.el mail-source.el
message.el mm-decode.el mm-uu.el mml.el nnmail.el nnmairix.el
pop3.el smiley.el smime.el spam-report.el tls.el
Merge from emacs--devo--0, emacs--rel--22
Patches applied:
* emacs--devo--0 (patch 1086-1089)
- Merge from gnus--devo--0
- Update from CVS
* emacs--rel--22 (patch 239)
- Merge from gnus--rel--5.10
2008-02-29 Glenn Morris <[email protected]>
* lisp/gnus-art.el, lisp/gnus-bookmark.el, lisp/gnus-dired.el, lisp/gnus-draft.el:
* lisp/gnus-group.el, lisp/gnus-msg.el, lisp/gnus-score.el, lisp/gnus-sum.el, lisp/gnus-util.el:
* lisp/gnus.el, lisp/mail-source.el, lisp/message.el, lisp/mm-decode.el, lisp/mm-uu.el, lisp/mml.el:
* lisp/nnmail.el, lisp/pop3.el, lisp/smiley.el, lisp/smime.el, lisp/spam-report.el:
Change defcustom :version from 23.0 to 23.1.
2008-02-28 Stefan Monnier <[email protected]>
* lisp/gnus-art.el: Use with-current-buffer.
2008-02-27 Glenn Morris <[email protected]>
* lisp/nnmairix.el: Change defcustom :version from 23.0 to 23.1.
(nnmairix-group-regexp, nnmairix-valid-backends): Convert from free
variables to defconsts. Convert comments to doc-strings.
(nnmairix-last-server, nnmairix-current-server): Convert from free
variables to defvars. Convert comments to doc-strings.
(gnus-registry-fetch-group): Autoload.
(nnmairix-replace-group-and-numbers): Use mapc rather than mapcar.
(nnmairix-widget-get-values, nnmairix-widget-make-query-from-widgets)
(nnmairix-widget-build-editable-fields): Use car cddr rather than
caddr.
(nnmairix-request-group): Bind nnmairix-fast and nnmairix-group around
nnmairix-request-group-with-article-number-correction call.
(nnmairix-fast, nnmairix-group): New, less general names, for free
variables passed from nnmairix-request-group to
nnmairix-request-group-with-article-number-correction. Declare.
(nnmairix-request-group-with-article-number-correction):
Use nnmairix-fast, nnmairix-group rather than fast, group.
Revision: [email protected]/gnus--devo--0--patch-465
Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1765 gnus/lisp/ChangeLog:7.1766
--- ChangeLog:7.1765 Sat Mar 1 02:31:08 2008
+++ ChangeLog Sat Mar 1 02:48:13 2008
@@ -15,6 +15,14 @@
(gnus-registry-initialize): Use it.
(gnus-registry-default-mark): Clarify documentation.
+2008-02-29 Glenn Morris <[email protected]>
+
+ * gnus-art.el, gnus-bookmark.el, gnus-dired.el, gnus-draft.el:
+ * gnus-group.el, gnus-msg.el, gnus-score.el, gnus-sum.el, gnus-util.el:
+ * gnus.el, mail-source.el, message.el, mm-decode.el, mm-uu.el, mml.el:
+ * nnmail.el, pop3.el, smiley.el, smime.el, spam-report.el:
+ Change defcustom :version from 23.0 to 23.1.
+
2008-02-28 Teodor Zlatanov <[email protected]>
* gnus-registry.el (gnus-registry-follow-group-p)
@@ -23,6 +31,10 @@
documentation.
(gnus-registry-split-fancy-with-parent): Use them.
+2008-02-28 Stefan Monnier <[email protected]>
+
+ * gnus-art.el: Use with-current-buffer.
+
2008-02-27 David Engster <[email protected]>
* nnmairix.el (nnmairix-request-group-with-article-number-correction):
@@ -42,6 +54,26 @@
* mm-uu.el (mm-uu-type-alist): Fix message-marks non-hide arguments.
(mm-uu-extract): Improve face for low color ttys. Reported by Sascha
Wilde.
+
+2008-02-27 Glenn Morris <[email protected]>
+
+ * nnmairix.el: Change defcustom :version from 23.0 to 23.1.
+ (nnmairix-group-regexp, nnmairix-valid-backends): Convert from free
+ variables to defconsts. Convert comments to doc-strings.
+ (nnmairix-last-server, nnmairix-current-server): Convert from free
+ variables to defvars. Convert comments to doc-strings.
+ (gnus-registry-fetch-group): Autoload.
+ (nnmairix-replace-group-and-numbers): Use mapc rather than mapcar.
+ (nnmairix-widget-get-values, nnmairix-widget-make-query-from-widgets)
+ (nnmairix-widget-build-editable-fields): Use car cddr rather than
+ caddr.
+ (nnmairix-request-group): Bind nnmairix-fast and nnmairix-group around
+ nnmairix-request-group-with-article-number-correction call.
+ (nnmairix-fast, nnmairix-group): New, less general names, for free
+ variables passed from nnmairix-request-group to
+ nnmairix-request-group-with-article-number-correction. Declare.
+ (nnmairix-request-group-with-article-number-correction):
+ Use nnmairix-fast, nnmairix-group rather than fast, group.
2008-02-26 David Engster <[email protected]>
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.261 gnus/lisp/gnus-art.el:7.262
--- gnus-art.el:7.261 Sun Feb 24 16:39:37 2008
+++ gnus-art.el Sat Mar 1 02:48:13 2008
@@ -718,7 +718,7 @@
(defcustom gnus-copy-article-ignored-headers nil
"List of headers to be removed when copying an article.
Each element is a regular expression."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type '(repeat regexp)
:group 'gnus-article-various)
@@ -885,7 +885,7 @@
Currently, `pbm' is used for X-Face images and `png' is used for Face
images in Emacs. Only the `:face' property is effective on the `xface'
image type in XEmacs if it is built with the libcompface library."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-article-headers
:type '(repeat (cons :format "%v" (symbol :tag "Image type") plist)))
@@ -1057,7 +1057,7 @@
When 0, point will be placed on the same part as before. When
positive (negative), move point forward (backwards) this many
parts. When nil, redisplay article."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-article-mime
:type '(choice (const nil :tag "Redisplay article.")
(const 1 :tag "Next part.")
@@ -1362,7 +1362,7 @@
If it is t, all long headers are unfolded.
This variable has no effect if `gnus-treat-unfold-headers' is nil."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-article-treat
:type '(choice (const nil)
(const :tag "all" t)
@@ -1714,8 +1714,7 @@
;;; Macros for dealing with the article buffer.
(defmacro gnus-with-article-headers (&rest forms)
- `(save-excursion
- (set-buffer gnus-article-buffer)
+ `(with-current-buffer gnus-article-buffer
(save-restriction
(let ((inhibit-read-only t)
(inhibit-point-motion-hooks t)
@@ -1727,8 +1726,7 @@
(put 'gnus-with-article-headers 'edebug-form-spec '(body))
(defmacro gnus-with-article-buffer (&rest forms)
- `(save-excursion
- (set-buffer gnus-article-buffer)
+ `(with-current-buffer gnus-article-buffer
(let ((inhibit-read-only t))
,@forms)))
@@ -2229,7 +2227,7 @@
"Value of `truncate-lines' in Gnus Article buffer.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate. See Info node `(gnus)Customizing Articles'."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-article
;; :link '(custom-manual "(gnus)Customizing Articles")
:type 'boolean)
@@ -2768,7 +2766,7 @@
on each file, if it is `ask' ask once when exiting from the
summary buffer."
:group 'gnus-article
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type '(choice (const :tag "Don't delete" nil)
(const :tag "Don't ask" t)
(const :tag "Ask" ask)
@@ -3718,8 +3716,7 @@
(or (symbol-value (get gnus-default-article-saver :headers))
gnus-saved-headers gnus-visible-headers))
(gnus-article-buffer save-buffer))
- (save-excursion
- (set-buffer save-buffer)
+ (with-current-buffer save-buffer
(article-hide-headers 1 t))))
(save-window-excursion
(if (not gnus-default-article-saver)
@@ -4137,8 +4134,7 @@
`(lambda (&optional interactive &rest args)
,(documentation afunc t)
(interactive (list t))
- (save-excursion
- (set-buffer gnus-article-buffer)
+ (with-current-buffer gnus-article-buffer
(if interactive
(call-interactively ',afunc)
(apply ',afunc args))))))))
@@ -4345,8 +4341,7 @@
(gnus-set-global-variables)))
(gnus-article-setup-highlight-words)
;; Init original article buffer.
- (save-excursion
- (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
+ (with-current-buffer (gnus-get-buffer-create gnus-original-article-buffer)
(mm-enable-multibyte)
(setq major-mode 'gnus-original-article-mode)
(make-local-variable 'gnus-original-article))
@@ -4361,8 +4356,7 @@
nil)
(error "Action aborted"))
t)))
- (save-excursion
- (set-buffer name)
+ (with-current-buffer name
(set (make-local-variable 'gnus-article-edit-mode) nil)
(when gnus-article-mime-handles
(mm-destroy-parts gnus-article-mime-handles)
@@ -4376,8 +4370,7 @@
(unless (eq major-mode 'gnus-article-mode)
(gnus-article-mode))
(current-buffer))
- (save-excursion
- (set-buffer (gnus-get-buffer-create name))
+ (with-current-buffer (gnus-get-buffer-create name)
(gnus-article-mode)
(make-local-variable 'gnus-summary-buffer)
(setq gnus-summary-buffer
@@ -4392,8 +4385,7 @@
(when article-window
(set-window-start
article-window
- (save-excursion
- (set-buffer gnus-article-buffer)
+ (with-current-buffer gnus-article-buffer
(goto-char (point-min))
(if (not line)
(point-min)
@@ -4447,8 +4439,7 @@
(if (or (eq result 'pseudo)
(eq result 'nneething))
(progn
- (save-excursion
- (set-buffer summary-buffer)
+ (with-current-buffer summary-buffer
(push article gnus-newsgroup-history)
(setq gnus-last-article gnus-current-article
gnus-current-article 0
@@ -4468,8 +4459,7 @@
(not (eq article gnus-current-article)))
;; Seems like a new article has been selected.
;; `gnus-current-article' must be an article number.
- (save-excursion
- (set-buffer summary-buffer)
+ (with-current-buffer summary-buffer
(push article gnus-newsgroup-history)
(setq gnus-last-article gnus-current-article
gnus-current-article article
@@ -6002,8 +5992,7 @@
If given a numerical ARG, move forward ARG pages."
(interactive "P")
(setq arg (if arg (prefix-numeric-value arg) 0))
- (save-excursion
- (set-buffer gnus-article-buffer)
+ (with-current-buffer gnus-article-buffer
(goto-char (point-min))
(widen)
;; Remove any old next/prev buttons.
@@ -6247,8 +6236,7 @@
(up-to-top
'("n" "Gn" "p" "Gp"))
keys new-sum-point)
- (save-excursion
- (set-buffer gnus-article-current-summary)
+ (with-current-buffer gnus-article-current-summary
(let (gnus-pick-mode)
(setq unread-command-events (nconc unread-command-events
(list (or key last-command-event)))
@@ -6359,8 +6347,7 @@
(gnus-article-check-buffer)
(if (memq (key-binding key t) '(gnus-article-read-summary-keys
gnus-article-read-summary-send-keys))
- (save-excursion
- (set-buffer gnus-article-current-summary)
+ (with-current-buffer gnus-article-current-summary
(setq unread-command-events
(if (featurep 'xemacs)
(append key nil)
@@ -6382,8 +6369,7 @@
(gnus-article-check-buffer)
(if (memq (key-binding key t) '(gnus-article-read-summary-keys
gnus-article-read-summary-send-keys))
- (save-excursion
- (set-buffer gnus-article-current-summary)
+ (with-current-buffer gnus-article-current-summary
(setq unread-command-events
(if (featurep 'xemacs)
(append key nil)
@@ -6428,8 +6414,7 @@
(set (make-local-variable 'gnus-draft-mode) draft)
(describe-bindings prefix))
(let ((item `((lambda (prefix)
- (save-excursion
- (set-buffer ,(current-buffer))
+ (with-current-buffer ,(current-buffer)
(gnus-article-describe-bindings prefix)))
,prefix)))
(with-current-buffer (if (fboundp 'help-buffer)
@@ -6533,8 +6518,7 @@
gnus-summary-buffer
(get-buffer gnus-summary-buffer)
(gnus-buffer-exists-p gnus-summary-buffer))
- (save-excursion
- (set-buffer gnus-summary-buffer)
+ (with-current-buffer gnus-summary-buffer
(let ((header (gnus-summary-article-header article)))
(when (< article 0)
(cond
@@ -6826,9 +6810,8 @@
(gnus-backlog-remove-article
(car gnus-article-current) (cdr gnus-article-current)))
;; Flush original article as well.
- (save-excursion
- (when (get-buffer gnus-original-article-buffer)
- (set-buffer gnus-original-article-buffer)
+ (when (get-buffer gnus-original-article-buffer)
+ (with-current-buffer gnus-original-article-buffer
(setq gnus-original-article nil)))
(when gnus-use-cache
(gnus-cache-update-article
@@ -7820,8 +7803,7 @@
(gnus-parse-news-url url)
(cond
(message-id
- (save-excursion
- (set-buffer gnus-summary-buffer)
+ (with-current-buffer gnus-summary-buffer
(if server
(let ((gnus-refer-article-method
(nconc (list (list 'nntp server))
@@ -8214,8 +8196,7 @@
(error "Can't encrypt the article in group %s"
gnus-newsgroup-name))
(gnus-summary-iterate n
- (save-excursion
- (set-buffer gnus-summary-buffer)
+ (with-current-buffer gnus-summary-buffer
(let ((mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)
(summary-buffer gnus-summary-buffer)
@@ -8261,9 +8242,8 @@
(when gnus-keep-backlog
(gnus-backlog-remove-article
(car gnus-article-current) (cdr gnus-article-current)))
- (save-excursion
- (when (get-buffer gnus-original-article-buffer)
- (set-buffer gnus-original-article-buffer)
+ (when (get-buffer gnus-original-article-buffer)
+ (with-current-buffer gnus-original-article-buffer
(setq gnus-original-article nil)))
(when gnus-use-cache
(gnus-cache-update-article
@@ -8514,5 +8494,5 @@
(run-hooks 'gnus-art-load-hook)
-;;; arch-tag: 2654516f-6279-48f9-a83b-05c1fa450c33
+;; arch-tag: 2654516f-6279-48f9-a83b-05c1fa450c33
;;; gnus-art.el ends here
Index: gnus-bookmark.el
diff -u gnus/lisp/gnus-bookmark.el:7.12 gnus/lisp/gnus-bookmark.el:7.13
--- gnus-bookmark.el:7.12 Sun Jan 20 06:23:57 2008
+++ gnus-bookmark.el Sat Mar 1 02:48:13 2008
@@ -139,7 +139,7 @@
(defface gnus-bookmark-menu-heading
'((t (:inherit font-lock-type-face)))
"Face used to highlight the heading in Gnus bookmark menu buffers."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-bookmark)
(defconst gnus-bookmark-end-of-version-stamp-marker
Index: gnus-dired.el
diff -u gnus/lisp/gnus-dired.el:7.10 gnus/lisp/gnus-dired.el:7.11
--- gnus-dired.el:7.10 Sun Jan 20 06:23:57 2008
+++ gnus-dired.el Sat Mar 1 02:48:13 2008
@@ -77,7 +77,7 @@
"Your preference for a mail composition package.
See `mail-user-agent' for more information."
:group 'mail ;; dired?
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type '(radio (function-item :tag "Default Emacs mail"
:format "%t\n"
sendmail-user-agent)
Index: gnus-draft.el
diff -u gnus/lisp/gnus-draft.el:7.19 gnus/lisp/gnus-draft.el:7.20
--- gnus-draft.el:7.19 Sun Jan 20 06:23:57 2008
+++ gnus-draft.el Sat Mar 1 02:48:13 2008
@@ -244,7 +244,7 @@
(defcustom gnus-draft-setup-hook nil
"Hook run after setting up a draft buffer."
:group 'gnus-message
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type 'hook)
;;; Utility functions
Index: gnus-group.el
diff -u gnus/lisp/gnus-group.el:7.108 gnus/lisp/gnus-group.el:7.109
--- gnus-group.el:7.108 Sun Feb 24 11:29:15 2008
+++ gnus-group.el Sat Mar 1 02:48:13 2008
@@ -1031,7 +1031,7 @@
(const :tag "Retro look" gnus-group-tool-bar-retro)
(repeat :tag "User defined list" gmm-tool-bar-item)
(symbol))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'gnus-group-tool-bar-update
:group 'gnus-group)
@@ -1074,7 +1074,7 @@
See `gmm-tool-bar-from-list' for the format of the list."
:type '(repeat gmm-tool-bar-item)
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'gnus-group-tool-bar-update
:group 'gnus-group)
@@ -1093,7 +1093,7 @@
See `gmm-tool-bar-from-list' for the format of the list."
:type '(repeat gmm-tool-bar-item)
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'gnus-group-tool-bar-update
:group 'gnus-group)
@@ -1104,7 +1104,7 @@
See `gmm-tool-bar-from-list' for the format of the list."
:type 'gmm-tool-bar-zap-list
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'gnus-group-tool-bar-update
:group 'gnus-group)
@@ -2331,7 +2331,7 @@
It must contain three \"%s\". They correspond to the group, the
minimal and maximal article numbers, respectively."
:group 'gnus-group-foreign
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type 'string)
(autoload 'url-insert-file-contents "url-handlers")
Index: gnus-msg.el
diff -u gnus/lisp/gnus-msg.el:7.64 gnus/lisp/gnus-msg.el:7.65
--- gnus-msg.el:7.64 Sun Jan 20 06:23:57 2008
+++ gnus-msg.el Sat Mar 1 02:48:13 2008
@@ -265,7 +265,7 @@
parameter, which should return non-nil if a confirmation is needed; or
a regexp, in which case a confirmation is asked for if the group name
matches the regexp."
- :version "23.0" ;; No Gnus (default changed)
+ :version "23.1" ;; No Gnus (default changed)
:group 'gnus-message
:type '(choice (const :tag "No" nil)
(const :tag "Yes" t)
@@ -293,7 +293,7 @@
(defcustom gnus-message-highlight-citation
t ;; gnus-treat-highlight-citation ;; gnus-cite dependency
"Enable highlighting of different citation levels in message-mode."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-cite
:group 'gnus-message
:type 'boolean)
Index: gnus-score.el
diff -u gnus/lisp/gnus-score.el:7.35 gnus/lisp/gnus-score.el:7.36
--- gnus-score.el:7.35 Sun Jan 20 06:23:57 2008
+++ gnus-score.el Sat Mar 1 02:48:13 2008
@@ -326,7 +326,7 @@
"If non-nil, adaptive score files fill are pretty printed."
:group 'gnus-score-files
:group 'gnus-score-adapt
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type 'boolean)
(defcustom gnus-score-default-header nil
@@ -429,7 +429,7 @@
matches the regexp. If it is t, scoring on headers or body is
inhibited for all groups."
:group 'gnus-score-various
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type '(choice (const :tag "All" nil)
(const :tag "None" t)
regexp))
Index: gnus-sum.el
diff -u gnus/lisp/gnus-sum.el:7.213 gnus/lisp/gnus-sum.el:7.214
--- gnus-sum.el:7.213 Sun Jan 20 06:23:57 2008
+++ gnus-sum.el Sat Mar 1 02:48:13 2008
@@ -72,7 +72,7 @@
See `gnus-group-goto-unread'."
:link '(custom-manual "(gnus)Group Maneuvering")
:group 'gnus-summary-exit
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type 'boolean)
(defcustom gnus-fetch-old-headers nil
@@ -398,7 +398,7 @@
If it has any other value or there is no next (unread) article, the
article selected before entering to the ephemeral group will appear."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-summary-maneuvering
:type '(choice :format "%{%t%}:\n %[Value Menu%] %v"
(const next) (const next-unread)
@@ -2752,7 +2752,7 @@
(const :tag "Retro look" gnus-summary-tool-bar-retro)
(repeat :tag "User defined list" gmm-tool-bar-item)
(symbol))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'gnus-summary-tool-bar-update
:group 'gnus-summary)
@@ -2803,7 +2803,7 @@
See `gmm-tool-bar-from-list' for the format of the list."
:type '(repeat gmm-tool-bar-item)
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'gnus-summary-tool-bar-update
:group 'gnus-summary)
@@ -2838,7 +2838,7 @@
See `gmm-tool-bar-from-list' for the format of the list."
:type '(repeat gmm-tool-bar-item)
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'gnus-summary-tool-bar-update
:group 'gnus-summary)
@@ -2849,7 +2849,7 @@
See `gmm-tool-bar-from-list' for the format of the list."
:type 'gmm-tool-bar-zap-list
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'gnus-summary-tool-bar-update
:group 'gnus-summary)
Index: gnus-util.el
diff -u gnus/lisp/gnus-util.el:7.76 gnus/lisp/gnus-util.el:7.77
--- gnus-util.el:7.76 Sat Feb 16 13:19:15 2008
+++ gnus-util.el Sat Mar 1 02:48:13 2008
@@ -521,7 +521,7 @@
\"*Messages*\" buffer (in XEmacs, it is the \" *Message-Log*\" buffer).
If it is neither nil nor `log', add timestamps not only to log messages
but also to the ones displayed in the echo area."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-various
:type '(choice :format "%{%t%}:\n %[Value Menu%] %v"
(const :tag "Logged messages only" log)
Index: gnus.el
diff -u gnus/lisp/gnus.el:7.78 gnus/lisp/gnus.el:7.79
--- gnus.el:7.78 Sun Feb 3 14:50:50 2008
+++ gnus.el Sat Mar 1 02:48:13 2008
@@ -1320,7 +1320,7 @@
value of `gnus-message-archive-method' afterward. If you want the
saved \"archive\" method to be updated whenever you change the value of
`gnus-message-archive-method', set this variable to a non-nil value."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-server
:group 'gnus-message
:type 'boolean)
Index: imap.el
diff -u gnus/lisp/imap.el:7.42 gnus/lisp/imap.el:7.43
--- imap.el:7.42 Sun Jan 20 06:23:57 2008
+++ imap.el Sat Mar 1 02:48:13 2008
@@ -1153,7 +1153,7 @@
(defcustom imap-ping-server t
"If non-nil, check if IMAP is open.
See the function `imap-ping-server'."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'imap
:type 'boolean)
Index: mail-source.el
diff -u gnus/lisp/mail-source.el:7.27 gnus/lisp/mail-source.el:7.28
--- mail-source.el:7.27 Sat Feb 16 14:03:16 2008
+++ mail-source.el Sat Mar 1 02:48:13 2008
@@ -67,7 +67,7 @@
This variable is a list of mail source specifiers.
See Info node `(gnus)Mail Source Specifiers'."
:group 'mail-source
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:link '(custom-manual "(gnus)Mail Source Specifiers")
:type `(choice
(const :tag "None" nil)
Index: message.el
diff -u gnus/lisp/message.el:7.240 gnus/lisp/message.el:7.241
--- message.el:7.240 Sun Feb 10 15:45:21 2008
+++ message.el Sat Mar 1 02:48:13 2008
@@ -476,7 +476,7 @@
(defcustom message-kill-buffer-query t
"*Non-nil means that killing a modified message buffer has to be confirmed.
This is used by `message-kill-buffer'."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'message-buffers
:type 'boolean)
@@ -666,7 +666,7 @@
:tag "Use Mailclient package")
(function :tag "Other"))
:group 'message-sending
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:link '(custom-manual "(message)Mail Variables")
:group 'message-mail)
@@ -809,7 +809,7 @@
(defcustom message-sendmail-extra-arguments nil
"Additional arguments to `sendmail-program'."
;; E.g. '("-a" "account") for msmtp
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type '(repeat string)
;; :link '(custom-manual "(message)Mail Variables")
:group 'message-sending)
@@ -969,7 +969,7 @@
(const :tag "Include date" "On %a, %b %d %Y, %n wrote:")
string)
:link '(custom-manual "(message)Insertion Variables")
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'message-insertion)
(defcustom message-yank-prefix "> "
@@ -4038,7 +4038,7 @@
(defcustom message-bogus-address-regexp nil ;; "noreply\\|nospam\\|invalid"
"Regexp of potentially bogus mail addresses."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'message-headers
:type 'regexp)
@@ -7357,7 +7357,7 @@
(const :tag "Retro look" message-tool-bar-retro)
(repeat :tag "User defined list" gmm-tool-bar-item)
(symbol))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'message-tool-bar-update
:group 'message)
@@ -7386,7 +7386,7 @@
See `gmm-tool-bar-from-list' for details on the format of the list."
:type '(repeat gmm-tool-bar-item)
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'message-tool-bar-update
:group 'message)
@@ -7406,7 +7406,7 @@
See `gmm-tool-bar-from-list' for details on the format of the list."
:type '(repeat gmm-tool-bar-item)
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'message-tool-bar-update
:group 'message)
@@ -7419,7 +7419,7 @@
See `gmm-tool-bar-from-list' for the format of the list."
:type 'gmm-tool-bar-zap-list
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:initialize 'custom-initialize-default
:set 'message-tool-bar-update
:group 'message)
Index: mm-decode.el
diff -u gnus/lisp/mm-decode.el:7.62 gnus/lisp/mm-decode.el:7.63
--- mm-decode.el:7.62 Wed Jan 23 08:48:31 2008
+++ mm-decode.el Sat Mar 1 02:48:13 2008
@@ -394,7 +394,7 @@
(repeat :inline t
:tag "Function"
function)))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'mime-display)
Index: mm-uu.el
diff -u gnus/lisp/mm-uu.el:7.55 gnus/lisp/mm-uu.el:7.56
--- mm-uu.el:7.55 Wed Feb 27 23:22:47 2008
+++ mm-uu.el Sat Mar 1 02:48:13 2008
@@ -89,7 +89,7 @@
(defcustom mm-uu-tex-groups-regexp "\\.tex\\>"
"*Regexp matching TeX groups."
- :version "23.0"
+ :version "23.1"
:type 'regexp
:group 'gnus-article-mime)
@@ -245,7 +245,7 @@
`mm-uu-extract' isn't distinguishable to the face `default'."
:type '(choice (const :tag "Hide" t)
(const :tag "Don't hide" nil))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-article-mime)
(defface mm-uu-extract '(;; Inspired by `gnus-cite-3'
@@ -269,7 +269,7 @@
()))
"Face for extracted buffers."
;; See `mm-uu-verbatim-marks-extract'.
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'gnus-article-mime)
(defun mm-uu-copy-to-buffer (&optional from to properties)
Index: mml.el
diff -u gnus/lisp/mml.el:7.60 gnus/lisp/mml.el:7.61
--- mml.el:7.60 Wed Jan 23 08:48:31 2008
+++ mml.el Sat Mar 1 02:48:13 2008
@@ -97,7 +97,7 @@
the string \"attachment\" or the string \"inline\". The value t for
SUPERTYPE, SUBTYPE or TYPE matches any of those types. The first
match found will be used."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type (let ((dispositions '(radio :format "DISPOSITION: %v"
:value "attachment"
(const :format "%v " "attachment")
@@ -1110,7 +1110,7 @@
"The default directory where mml will find files.
If not set, `default-directory' will be used."
:type '(choice directory (const :tag "Default" nil))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'message)
(defun mml-minibuffer-read-file (prompt)
Index: nnmail.el
diff -u gnus/lisp/nnmail.el:7.41 gnus/lisp/nnmail.el:7.42
--- nnmail.el:7.41 Thu Feb 14 21:01:42 2008
+++ nnmail.el Sat Mar 1 02:48:13 2008
@@ -1296,7 +1296,7 @@
"Header line matching mailer producing bogus References lines.
See `nnmail-ignore-broken-references'."
:group 'nnmail-prepare
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:type 'regexp)
(defun nnmail-ignore-broken-references ()
Index: nnmairix.el
diff -u gnus/lisp/nnmairix.el:7.3 gnus/lisp/nnmairix.el:7.4
--- nnmairix.el:7.3 Thu Feb 28 00:44:30 2008
+++ nnmairix.el Sat Mar 1 02:48:13 2008
@@ -6,19 +6,21 @@
;; Keywords: mail searching
;; Version: 0.5
-;; This file is free software; you can redistribute it and/or modify
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
-;; This file is distributed in the hope that it will be useful,
+;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
@@ -42,7 +44,7 @@
;; http://www.emacswiki.org/cgi-bin/wiki/GnusMairix
;;
;; The newest version of nnmairix.el can be found at
-;;
+;;
;; http://www.emacswiki.org/cgi-bin/emacs/nnmairix.el
;; For impatient people, here's the setup in a nutshell:
@@ -96,14 +98,14 @@
;; * Support of more back ends (nnmh, nnfolder, nnmbox...)?
;; * Maybe use an active file instead of group parameters?
;; * Use "-a" when updating groups which are not newly created
-
+
;;; Changelog:
;;
;; 02/06/2008 - version 0.5
-;;
+;;
;; * New function: nnmairix-goto-original-article. Uses the
;; registry or the mail file path for determining original group.
-;;
+;;
;; * Deal with empty Xref header
;;
;; * Changed summary mode keybindings since the old ones were
@@ -118,7 +120,7 @@
;; 18/11/2007 - version 0.3
;;
;; * Fixed bugs when dealing with nnml and native servers
-;;
+;;
;; * Make variables customizable
;;
;; 10/10/2007 - version 0.2
@@ -215,19 +217,19 @@
server will be this prefix plus a random number. You can delete
unused nnmairix groups on the back end using
`nnmairix-purge-old-groups'."
- :version "23.0"
+ :version "23.1"
:type 'string
:group 'nnmairix)
(defcustom nnmairix-mairix-output-buffer "*mairix output*"
"Buffer used for mairix output."
- :version "23.0"
+ :version "23.1"
:type 'string
:group 'nnmairix)
(defcustom nnmairix-customize-query-buffer "*mairix query*"
"Name of the buffer for customizing Mairix queries."
- :version "23.0"
+ :version "23.1"
:type 'string
:group 'nnmairix)
@@ -236,13 +238,13 @@
The default is '-F' and '-Q' for making updates faster. You
should call mairix without these options from time to
time (e.g. via cron job)."
- :version "23.0"
+ :version "23.1"
:type '(repeat string)
:group 'nnmairix)
(defcustom nnmairix-mairix-synchronous-update nil
"Set this to t if you want Emacs to wait for mairix updating the database."
- :version "23.0"
+ :version "23.1"
:type 'boolean
:group 'nnmairix)
@@ -252,7 +254,7 @@
article numbers which will produce wrong article counts by
Gnus. This option controls whether nnmairix should rename the
files consecutively."
- :version "23.0"
+ :version "23.1"
:type 'boolean
:group 'nnmairix)
@@ -268,7 +270,7 @@
which header contents should be inserted into the editable field
when creating a Mairix query based on the current message (can be
nil for disabling this)."
- :version "23.0"
+ :version "23.1"
:type '(repeat (list
(choice :tag "Field"
(const :tag "none" nil)
@@ -285,7 +287,7 @@
(lambda () (select-window (get-largest-window)))
"Function for selecting the window for customizing the mairix query.
The default chooses the largest window in the current frame."
- :version "23.0"
+ :version "23.1"
:type 'function
:group 'nnmairix)
@@ -336,12 +338,12 @@
;;; === Internal variables
-(defvar nnmairix-group-regexp
+(defconst nnmairix-group-regexp
(format "%s-\\(.*\\)-[0-9]+" nnmairix-group-prefix)
"Regexp for mairix groups on back end.")
-(defvar nnmairix-valid-backends '(nnimap nnml nnmaildir)
- "Back ends (hopefully...) supported by nnmairix.
+(defconst nnmairix-valid-backends '(nnimap nnml nnmaildir)
+ "Backends supported by nnmairix.
Other backends might or might not work.")
(defvar nnmairix-last-server nil
@@ -351,7 +353,7 @@
"Current server.")
;;; === Gnus backend functions
-
+
(nnoo-define-basics nnmairix)
(gnus-declare-backend "nnmairix" 'mail 'address)
@@ -432,7 +434,8 @@
"request-scan" folder nnmairix-backend-server)
(if fast
t
- (nnmairix-request-group-with-article-number-correction folder qualgroup)))
+ (nnmairix-request-group-with-article-number-correction
+ folder qualgroup)))
((and (= rval 1)
(save-excursion (set-buffer nnmairix-mairix-output-buffer)
(goto-char (point-min))
@@ -536,7 +539,7 @@
t)
nil))
-
+
(nnoo-define-skeleton nnmairix)
@@ -677,7 +680,7 @@
(gnus-group-set-parameter group 'query query)
(nnmairix-update-and-clear-marks group)))
(error "This is no nnmairix group"))))
-
+
(defun nnmairix-group-toggle-threads-this-group (&optional threads)
"Toggle threads parameter for this group.
@@ -698,7 +701,7 @@
(message "Threads deacitavted for group %s" group))
(nnmairix-update-and-clear-marks group))
(error "This is no nnmairix group"))))
-
+
(defun nnmairix-search (query &optional server threads)
"Sends QUERY to nnmairix backend SERVER, using default its search group.
@@ -883,9 +886,9 @@
;; registry was not available or did not find article
;; so we search again with mairix in raw mode to get filename
(nnmairix-open-server server)
- (setq rval
- (nnmairix-call-mairix-binary-raw
- (split-string nnmairix-mairix-command)
+ (setq rval
+ (nnmairix-call-mairix-binary-raw
+ (split-string nnmairix-mairix-command)
(list (concat "m:" mid))))
(if (zerop rval)
;; determine original group(s) from filename
@@ -897,12 +900,12 @@
allgroups)
(forward-line 1))
(if (> (length allgroups) 1)
- (setq group
- (completing-read
- "Message exists in more than one group. Choose: "
+ (setq group
+ (completing-read
+ "Message exists in more than one group. Choose: "
allgroups nil t))
(setq group (car allgroups))))
- (error "Mairix could not find original article. See buffer %s for details"
+ (error "Mairix could not find original article. See buffer %s for details"
nnmairix-mairix-output-buffer))))
(if group
;; show article in summary buffer
@@ -919,10 +922,10 @@
(setq maildirflag (string-match ".+\\..+\\..+" filename))
(when maildirflag
(setq path
- (replace-regexp-in-string
+ (replace-regexp-in-string
".*\\(/cur\\|/new\\|/tmp\\)$" "" path t t 1)))
;; we first check nnml and nnmaildir servers
- (setq
+ (setq
group
(catch 'found
(dolist (cur gnus-opened-servers)
@@ -931,12 +934,12 @@
(and maildirflag
(eq (caar cur) 'nnmaildir)))
;; get base path from server
- (if maildirflag
- (setq serverbase (cadr (assoc 'directory (car cur))))
+ (if maildirflag
+ (setq serverbase (cadr (assoc 'directory (car cur))))
(setq serverbase (cadr (assoc 'nnml-directory (car cur))))
(when (not serverbase)
(setq serverbase nnml-directory)))
- (setq serverbase (file-name-as-directory
+ (setq serverbase (file-name-as-directory
(expand-file-name serverbase)))
(when (string-match (concat serverbase "\\(.*\\)") path)
;; looks good - rest of the path should be the group
@@ -961,14 +964,14 @@
(setq group (replace-match "/" t t group)))
(dolist (cur gnus-opened-servers)
(when (eq (caar cur) 'nnimap)
- (when (gnus-group-entry
+ (when (gnus-group-entry
(gnus-group-prefixed-name group (car cur)))
- (push
+ (push
(gnus-group-prefixed-name group (car cur))
allgroups))))
(if (> (length allgroups) 1)
- (setq group (completing-read
- "Group %s exists on more than one IMAP server. Choose: "
+ (setq group (completing-read
+ "Group %s exists on more than one IMAP server. Choose: "
allgroups nil t))
(setq group (car allgroups))))
group))
@@ -979,8 +982,7 @@
(defun nnmairix-request-group-with-article-number-correction (folder qualgroup)
"Request FOLDER on backend for nnmairix QUALGROUP and article number correction."
(save-excursion
- (nnmairix-call-backend
- "request-group" folder nnmairix-backend-server)
+ (nnmairix-call-backend "request-group" folder nnmairix-backend-server)
(set-buffer nnmairix-mairix-output-buffer)
(goto-char (point-min))
(re-search-forward "^Matched.*messages")
@@ -1174,25 +1176,24 @@
(set-buffer nntp-server-buffer)
(goto-char (point-min))
(nnheader-message 7 "nnmairix: Rewriting headers...")
- (mapcar
- (function
- (lambda (article)
- (when (or (looking-at (number-to-string article))
- (nnheader-find-nov-line article))
- (setq cur (nnheader-parse-nov))
- (when corr
- (setq article (+ (mail-header-number cur) numc))
- (mail-header-set-number cur article))
- (setq xref (mail-header-xref cur))
- (when (and (stringp xref)
- (string-match (format "[ \t]%s:[0-9]+" backendgroup) xref))
- (setq xref (replace-match (format " %s:%d" mairixgroup article) t nil xref))
- (mail-header-set-xref cur xref))
- (set-buffer buf)
- (nnheader-insert-nov cur)
- (set-buffer nntp-server-buffer)
- (when (not (eobp))
- (forward-line 1)))))
+ (mapc
+ (lambda (article)
+ (when (or (looking-at (number-to-string article))
+ (nnheader-find-nov-line article))
+ (setq cur (nnheader-parse-nov))
+ (when corr
+ (setq article (+ (mail-header-number cur) numc))
+ (mail-header-set-number cur article))
+ (setq xref (mail-header-xref cur))
+ (when (and (stringp xref)
+ (string-match (format "[ \t]%s:[0-9]+" backendgroup) xref))
+ (setq xref (replace-match (format " %s:%d" mairixgroup article) t nil xref))
+ (mail-header-set-xref cur xref))
+ (set-buffer buf)
+ (nnheader-insert-nov cur)
+ (set-buffer nntp-server-buffer)
+ (when (not (eobp))
+ (forward-line 1))))
articles)
(nnheader-message 7 "nnmairix: Rewriting headers... done")
(kill-buffer nntp-server-buffer)
@@ -1283,7 +1284,7 @@
(when (gnus-group-jump-to-group group)
(gnus-group-get-new-news-this-group)))
(error "Nnmairix-update-and-clear-marks - Called with non-nnmairix group"))))
-
+
(defun nnmairix-sentinel-mairix-update-finished (proc status)
"Sentinel for mairix update process PROC with STATUS."
@@ -1318,7 +1319,7 @@
(gnus-summary-exit))
(pop-to-buffer gnus-group-buffer)
(gnus-group-jump-to-group group)
- (gnus-summary-read-group group 1 t)
+ (gnus-summary-read-group group 1 t)
(gnus-summary-refer-article mid)
(gnus-summary-limit-to-headers (format "message-id: <%s>" mid))
(gnus-summary-select-article)
@@ -1349,13 +1350,13 @@
(mapcar
(function
(lambda (field)
- (list (caddr field)
+ (list (car (cddr field))
(if (car field)
(nnmairix-replace-illegal-chars
(gnus-fetch-field (car field)))
nil))))
nnmairix-widget-fields-list))))
-
+
(defun nnmairix-widget-search (&optional mvalues)
"Create mairix query interactively using graphical widgets.
@@ -1433,7 +1434,7 @@
(dolist (cur nnmairix-widget-fields-list)
;; See if checkbox is checked
(when (widget-value
- (cadr (assoc (concat "c" (caddr cur)) widgets)))
+ (cadr (assoc (concat "c" (car (cddr cur))) widgets)))
;; create query for the field
(push
(concat
@@ -1441,7 +1442,7 @@
":"
(nnmairix-replace-illegal-chars
(widget-value
- (cadr (assoc (concat "e" (caddr cur)) widgets)))))
+ (cadr (assoc (concat "e" (car (cddr cur))) widgets)))))
query)))
;; Flags
(when (member 'flags nnmairix-widget-other)
@@ -1505,7 +1506,7 @@
(mapc
(function
(lambda (field)
- (setq field (caddr field))
+ (setq field (car (cddr field)))
(setq ret
(nconc
(list
Index: pop3.el
diff -u gnus/lisp/pop3.el:7.31 gnus/lisp/pop3.el:7.32
--- pop3.el:7.31 Sun Jan 20 06:23:57 2008
+++ pop3.el Sat Mar 1 02:48:13 2008
@@ -213,7 +213,7 @@
to turn on TLS security after opening the stream). However, if
this is nil, `ssl' is assumed for connexions to port
995 (pop3s)."
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'pop3
:type '(choice (const :tag "Plain" nil)
(const :tag "SSL/TLS" ssl)
Index: smiley.el
diff -u gnus/lisp/smiley.el:7.21 gnus/lisp/smiley.el:7.22
--- smiley.el:7.21 Sun Jan 20 06:23:57 2008
+++ smiley.el Sat Mar 1 02:48:13 2008
@@ -76,7 +76,7 @@
(setq smiley-data-directory (smiley-directory))
(smiley-update-cache))
:initialize 'custom-initialize-default
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'smiley)
;; For compatibility, honor the variable `smiley-data-directory' if the user
Index: smime.el
diff -u gnus/lisp/smime.el:7.31 gnus/lisp/smime.el:7.32
--- smime.el:7.31 Sun Jan 20 06:23:57 2008
+++ smime.el Sat Mar 1 02:48:13 2008
@@ -245,7 +245,7 @@
If needed search base, binddn, passwd, etc. for the LDAP host
must be set in `ldap-host-parameters-alist'."
:type '(repeat (string :tag "Host name"))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'smime)
(defvar smime-details-buffer "*OpenSSL output*")
Index: spam-report.el
diff -u gnus/lisp/spam-report.el:7.35 gnus/lisp/spam-report.el:7.36
--- spam-report.el:7.35 Sun Jan 20 06:23:57 2008
+++ spam-report.el Sat Mar 1 02:48:13 2008
@@ -220,7 +220,7 @@
This is initialized based on `user-mail-address'."
:type '(choice string
(const :tag "Don't expose address" nil))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'spam-report)
(defvar spam-report-user-agent
Index: tls.el
diff -u gnus/lisp/tls.el:7.22 gnus/lisp/tls.el:7.23
--- tls.el:7.22 Sun Jan 20 06:23:57 2008
+++ tls.el Sat Mar 1 02:48:13 2008
@@ -148,7 +148,7 @@
:type '(choice (const :tag "Always" t)
(const :tag "Never" nil)
(const :tag "Ask" ask))
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'tls)
(defcustom tls-untrusted
@@ -158,7 +158,7 @@
\"openssl s_client\" return in the event of unsuccessful
verification."
:type 'regexp
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'tls)
(defcustom tls-hostmismatch
@@ -169,7 +169,7 @@
warning to this effect. There is no such feature in openssl. Set
this to nil if you want to ignore host name mismatches."
:type 'regexp
- :version "23.0" ;; No Gnus
+ :version "23.1" ;; No Gnus
:group 'tls)
(defcustom tls-certtool-program (executable-find "certtool")