Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package maildir-utils for openSUSE:Factory
checked in at 2021-08-24 10:54:34
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/maildir-utils (Old)
and /work/SRC/openSUSE:Factory/.maildir-utils.new.1899 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "maildir-utils"
Tue Aug 24 10:54:34 2021 rev:25 rq:913628 version:1.6.4
Changes:
--------
--- /work/SRC/openSUSE:Factory/maildir-utils/maildir-utils.changes
2021-08-18 08:56:45.578915099 +0200
+++ /work/SRC/openSUSE:Factory/.maildir-utils.new.1899/maildir-utils.changes
2021-08-24 10:55:24.688278144 +0200
@@ -1,0 +2,11 @@
+Mon Aug 23 05:12:13 UTC 2021 - Michael Vetter <mvet...@suse.com>
+
+- Update to 1.6.4:
+ * mu4e: Add back the `h' keybinding to toggle HTML view in a gnus article
+ * mu4e: toggle-html: use if-let/seq-find
+ * mu4e-view-gnus: Fix some flycheck warnings (doc)
+ * Create numbered backup of attached file when already exists #2090
+ * Use and instead of progn and fix some long lines
+ * mu4e-compose: regenerate Date: when user removes it
+
+-------------------------------------------------------------------
Old:
----
mu-1.6.3.tar.xz
New:
----
mu-1.6.4.tar.xz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ maildir-utils.spec ++++++
--- /var/tmp/diff_new_pack.X6qdlm/_old 2021-08-24 10:55:25.152277529 +0200
+++ /var/tmp/diff_new_pack.X6qdlm/_new 2021-08-24 10:55:25.152277529 +0200
@@ -17,7 +17,7 @@
Name: maildir-utils
-Version: 1.6.3
+Version: 1.6.4
Release: 0
Summary: Maildir indexer and searcher
License: GPL-3.0-or-later
++++++ mu-1.6.3.tar.xz -> mu-1.6.4.tar.xz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/Makefile.in new/mu-1.6.4/Makefile.in
--- old/mu-1.6.3/Makefile.in 2021-08-12 18:07:59.000000000 +0200
+++ new/mu-1.6.4/Makefile.in 2021-08-21 15:23:16.000000000 +0200
@@ -15,7 +15,7 @@
@SET_MAKE@
# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Thu Aug 12 19:07:58 EEST 2021
+# from AX_AM_MACROS_STATIC on Sat Aug 21 16:23:16 EEST 2021
VPATH = @srcdir@
am__is_gnu_make = { \
@@ -226,8 +226,9 @@
$(top_srcdir)/build-aux/missing $(top_srcdir)/gtest.mk AUTHORS \
COPYING ChangeLog NEWS TODO build-aux/compile \
build-aux/config.guess build-aux/config.rpath \
- build-aux/config.sub build-aux/install-sh build-aux/ltmain.sh \
- build-aux/mdate-sh build-aux/missing build-aux/texinfo.tex
+ build-aux/config.sub build-aux/depcomp build-aux/install-sh \
+ build-aux/ltmain.sh build-aux/mdate-sh build-aux/missing \
+ build-aux/texinfo.tex
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
distdir = $(PACKAGE)-$(VERSION)
top_distdir = $(distdir)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/aminclude_static.am
new/mu-1.6.4/aminclude_static.am
--- old/mu-1.6.3/aminclude_static.am 2021-08-12 18:07:58.000000000 +0200
+++ new/mu-1.6.4/aminclude_static.am 2021-08-21 15:23:16.000000000 +0200
@@ -1,6 +1,6 @@
# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Thu Aug 12 19:07:58 EEST 2021
+# from AX_AM_MACROS_STATIC on Sat Aug 21 16:23:16 EEST 2021
# Code coverage
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/configure new/mu-1.6.4/configure
--- old/mu-1.6.3/configure 2021-08-12 18:07:57.000000000 +0200
+++ new/mu-1.6.4/configure 2021-08-21 15:23:17.000000000 +0200
@@ -1,6 +1,6 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for mu 1.6.3.
+# Generated by GNU Autoconf 2.69 for mu 1.6.4.
#
# Report bugs to <https://github.com/djcb/mu/issues>.
#
@@ -592,8 +592,8 @@
# Identity of this package.
PACKAGE_NAME='mu'
PACKAGE_TARNAME='mu'
-PACKAGE_VERSION='1.6.3'
-PACKAGE_STRING='mu 1.6.3'
+PACKAGE_VERSION='1.6.4'
+PACKAGE_STRING='mu 1.6.4'
PACKAGE_BUGREPORT='https://github.com/djcb/mu/issues'
PACKAGE_URL=''
@@ -1444,7 +1444,7 @@
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
-\`configure' configures mu 1.6.3 to adapt to many kinds of systems.
+\`configure' configures mu 1.6.4 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@@ -1515,7 +1515,7 @@
if test -n "$ac_init_help"; then
case $ac_init_help in
- short | recursive ) echo "Configuration of mu 1.6.3:";;
+ short | recursive ) echo "Configuration of mu 1.6.4:";;
esac
cat <<\_ACEOF
@@ -1674,7 +1674,7 @@
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
-mu configure 1.6.3
+mu configure 1.6.4
generated by GNU Autoconf 2.69
Copyright (C) 2012 Free Software Foundation, Inc.
@@ -2223,7 +2223,7 @@
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
-It was created by mu $as_me 1.6.3, which was
+It was created by mu $as_me 1.6.4, which was
generated by GNU Autoconf 2.69. Invocation command line was
$ $0 $@
@@ -3094,7 +3094,7 @@
# Define the identity of the package.
PACKAGE='mu'
- VERSION='1.6.3'
+ VERSION='1.6.4'
cat >>confdefs.h <<_ACEOF
@@ -22622,7 +22622,7 @@
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
-This file was extended by mu $as_me 1.6.3, which was
+This file was extended by mu $as_me 1.6.4, which was
generated by GNU Autoconf 2.69. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@@ -22688,7 +22688,7 @@
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //;
s/[\\""\`\$]/\\\\&/g'`"
ac_cs_version="\\
-mu config.status 1.6.3
+mu config.status 1.6.4
configured by $0, generated by GNU Autoconf 2.69,
with options \\"\$ac_cs_config\\"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/configure.ac new/mu-1.6.4/configure.ac
--- old/mu-1.6.3/configure.ac 2021-08-12 18:07:03.000000000 +0200
+++ new/mu-1.6.4/configure.ac 2021-08-21 15:22:37.000000000 +0200
@@ -15,7 +15,7 @@
## Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
AC_PREREQ([2.68])
-AC_INIT([mu],[1.6.3],[https://github.com/djcb/mu/issues],[mu])
+AC_INIT([mu],[1.6.4],[https://github.com/djcb/mu/issues],[mu])
AC_COPYRIGHT([Copyright (C) 2008-2021 Dirk-Jan C. Binnema])
AC_CONFIG_HEADERS([config.h])
AC_CONFIG_SRCDIR([mu/mu.cc])
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/guile/stamp-vti new/mu-1.6.4/guile/stamp-vti
--- old/mu-1.6.3/guile/stamp-vti 2021-08-12 18:08:05.000000000 +0200
+++ new/mu-1.6.4/guile/stamp-vti 2021-08-21 15:23:21.000000000 +0200
@@ -1,4 +1,4 @@
@set UPDATED 17 March 2021
@set UPDATED-MONTH March 2021
-@set EDITION 1.6.3
-@set VERSION 1.6.3
+@set EDITION 1.6.4
+@set VERSION 1.6.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/guile/version.texi
new/mu-1.6.4/guile/version.texi
--- old/mu-1.6.3/guile/version.texi 2021-08-12 18:08:05.000000000 +0200
+++ new/mu-1.6.4/guile/version.texi 2021-08-21 15:23:21.000000000 +0200
@@ -1,4 +1,4 @@
@set UPDATED 17 March 2021
@set UPDATED-MONTH March 2021
-@set EDITION 1.6.3
-@set VERSION 1.6.3
+@set EDITION 1.6.4
+@set VERSION 1.6.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/lib/Makefile.in new/mu-1.6.4/lib/Makefile.in
--- old/mu-1.6.3/lib/Makefile.in 2021-08-12 18:07:59.000000000 +0200
+++ new/mu-1.6.4/lib/Makefile.in 2021-08-21 15:23:16.000000000 +0200
@@ -15,7 +15,7 @@
@SET_MAKE@
# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Thu Aug 12 19:07:58 EEST 2021
+# from AX_AM_MACROS_STATIC on Sat Aug 21 16:23:16 EEST 2021
VPATH = @srcdir@
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/lib/index/Makefile.in
new/mu-1.6.4/lib/index/Makefile.in
--- old/mu-1.6.3/lib/index/Makefile.in 2021-08-12 18:07:59.000000000 +0200
+++ new/mu-1.6.4/lib/index/Makefile.in 2021-08-21 15:23:16.000000000 +0200
@@ -15,7 +15,7 @@
@SET_MAKE@
# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Thu Aug 12 19:07:58 EEST 2021
+# from AX_AM_MACROS_STATIC on Sat Aug 21 16:23:16 EEST 2021
VPATH = @srcdir@
am__is_gnu_make = { \
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/lib/utils/Makefile.in
new/mu-1.6.4/lib/utils/Makefile.in
--- old/mu-1.6.3/lib/utils/Makefile.in 2021-08-12 18:07:59.000000000 +0200
+++ new/mu-1.6.4/lib/utils/Makefile.in 2021-08-21 15:23:16.000000000 +0200
@@ -15,7 +15,7 @@
@SET_MAKE@
# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Thu Aug 12 19:07:58 EEST 2021
+# from AX_AM_MACROS_STATIC on Sat Aug 21 16:23:16 EEST 2021
VPATH = @srcdir@
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/mu/Makefile.in new/mu-1.6.4/mu/Makefile.in
--- old/mu-1.6.3/mu/Makefile.in 2021-08-12 18:07:59.000000000 +0200
+++ new/mu-1.6.4/mu/Makefile.in 2021-08-21 15:23:16.000000000 +0200
@@ -15,7 +15,7 @@
@SET_MAKE@
# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Thu Aug 12 19:07:58 EEST 2021
+# from AX_AM_MACROS_STATIC on Sat Aug 21 16:23:16 EEST 2021
VPATH = @srcdir@
am__is_gnu_make = { \
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/mu4e/mu4e-compose.el
new/mu-1.6.4/mu4e/mu4e-compose.el
--- old/mu-1.6.3/mu4e/mu4e-compose.el 2021-05-31 20:25:56.000000000 +0200
+++ new/mu-1.6.4/mu4e/mu4e-compose.el 2021-08-19 09:56:01.000000000 +0200
@@ -366,7 +366,8 @@
(save-restriction
(message-narrow-to-headers)
(unless (message-fetch-field "Message-ID")
- (message-generate-headers '(Date Message-ID))))
+ (message-generate-headers '(Message-ID)))
+ (message-generate-headers '(Date)))
(save-match-data
(mu4e~draft-remove-mail-header-separator))))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/mu4e/mu4e-meta.el
new/mu-1.6.4/mu4e/mu4e-meta.el
--- old/mu-1.6.3/mu4e/mu4e-meta.el 2021-08-12 18:08:04.000000000 +0200
+++ new/mu-1.6.4/mu4e/mu4e-meta.el 2021-08-21 15:23:20.000000000 +0200
@@ -1,5 +1,5 @@
;; auto-generated
-(defconst mu4e-mu-version "1.6.3"
+(defconst mu4e-mu-version "1.6.4"
"Required mu binary version; mu4e's version must agree with this.")
(defconst mu4e-builddir "/home/djcb/Sources/mu"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/mu4e/mu4e-view-gnus.el
new/mu-1.6.4/mu4e/mu4e-view-gnus.el
--- old/mu-1.6.3/mu4e/mu4e-view-gnus.el 2021-08-12 16:58:53.000000000 +0200
+++ new/mu-1.6.4/mu4e/mu4e-view-gnus.el 2021-08-17 09:10:15.000000000 +0200
@@ -62,8 +62,7 @@
(mu4e~view-render-buffer msg))
(defun mu4e-view-message-text (msg)
- "Return the pristine message as a string, for replying/forwarding
-etc."
+ "Return the pristine MSG as a string."
;; we need this for replying/forwarding, since the mu4e-compose
;; wants it that way.
(with-temp-buffer
@@ -96,8 +95,7 @@
(defun mu4e~view-render-buffer (msg)
- "Render current buffer with MSG using Gnus' article mode in
-buffer BUF."
+ "Render current buffer with MSG using Gnus' article mode."
(setq gnus-summary-buffer (get-buffer-create " *appease-gnus*"))
(let* ((inhibit-read-only t)
(max-specpdl-size mu4e-view-max-specpdl-size)
@@ -136,7 +134,7 @@
(setq mu4e~gnus-article-mime-handles nil)))
(defun mu4e~view-gnus-display-mime (msg)
- "Same as `gnus-display-mime' but include mu4e headers to MSG."
+ "Like `gnus-display-mime' but include mu4e headers to MSG."
(lambda (&optional ihandles)
(gnus-display-mime ihandles)
(unless ihandles
@@ -167,7 +165,7 @@
(gnus-treat-article 'head))))))
(defun mu4e~view-gnus-insert-header (field val)
- "Insert a header FIELD with value VAL in Gnus article view."
+ "Insert a header FIELD with value VAL."
(let* ((info (cdr (assoc field mu4e-header-info)))
(key (plist-get info :name))
(help (plist-get info :help)))
@@ -176,12 +174,12 @@
" " val "\n"))))
(defun mu4e~view-gnus-insert-header-custom (msg field)
- "Insert the custom FIELD in Gnus article view."
+ "Insert MSG's custom FIELD."
(let* ((info (cdr-safe (or (assoc field mu4e-header-info-custom)
- (mu4e-error "custom field %S not found" field))))
+ (mu4e-error "Custom field %S not found" field))))
(key (plist-get info :name))
(func (or (plist-get info :function)
- (mu4e-error "no :function defined for custom field %S %S"
+ (mu4e-error "No :function defined for custom field %S %S"
field info)))
(val (funcall func msg))
(help (plist-get info :help)))
@@ -190,8 +188,7 @@
(define-advice gnus-icalendar-event-from-handle
(:filter-args (handle-attendee) mu4e~view-fix-missing-charset)
- "Do not trigger an error when displaying an ical attachment
-with no charset."
+ "Avoid error when displaying an ical attachment without a charset."
(if (and (boundp 'mu4e~view-rendering) mu4e~view-rendering)
(let* ((handle (car handle-attendee))
(attendee (cadr handle-attendee))
@@ -204,25 +201,25 @@
(list handle attendee))
handle-attendee))
-
(defun mu4e~view-mode-p ()
+ "Is the buffer in mu4e-view-mode or one of its descendants?"
(or (eq major-mode 'mu4e-view-mode)
(derived-mode-p '(mu4e-view-mode))))
(defun mu4e~view-nop (func &rest args)
- "Do nothing when in mu4e-view-mode. This is useful for advising
-some Gnus-functionality that does not work in mu4e."
+ "Do not invoke FUNC with ARGS when in mu4e-view-mode.
+This is useful for advising some Gnus-functionality that does not work in
mu4e."
(unless (mu4e~view-mode-p)
(apply func args)))
(defun mu4e~view-button-reply (func &rest args)
- "Advice to make `gnus-button-reply' links work in mu4e."
+ "Advise FUNC with ARGS to make `gnus-button-reply' links work in mu4e."
(if (mu4e~view-mode-p)
(mu4e-compose-reply)
(apply func args)))
(defun mu4e~view-msg-mail (func &rest args)
- "Advice to make `gnus-msg-mail' links compose with mu4e."
+ "Advise FUNC with ARGS to make `gnus-msg-mail' links compose with mu4e."
(if (mu4e~view-mode-p)
(apply 'mu4e~compose-mail args)
(apply func args)))
@@ -328,6 +325,7 @@
(define-key map "M" #'mu4e-view-massage)
(define-key map "w" 'visual-line-mode)
+ (define-key map "h" #'mu4e-view-toggle-html)
(define-key map (kbd "M-q") 'article-fill-long-lines)
;; next 3 only warn user when attempt in the message view
@@ -391,7 +389,7 @@
(set-keymap-parent map special-mode-map)
map)
- "Keymap for mu4e-view mode")
+ "Keymap for mu4e-view mode.")
(set-keymap-parent mu4e-view-mode-map button-buffer-map)
(suppress-keymap mu4e-view-mode-map)
@@ -416,8 +414,8 @@
;; "Define the major-mode for the mu4e-view."
(define-derived-mode mu4e-view-mode gnus-article-mode "mu4e:view"
- "Major mode for viewing an e-mail message in mu4e, based on
-Gnus' article-mode."
+ "Major mode for viewing an e-mail message in mu4e.
+Based on Gnus' article-mode."
;; Restore C-h b default behavior
(define-key mu4e-view-mode-map (kbd "C-h b") 'describe-bindings)
;; ;; turn off gnus modeline changes and menu items
@@ -451,10 +449,9 @@
;;; MIME-parts
-
(defun mu4e~view-gather-mime-parts ()
- "Gather all MIME parts as an alist that uniquely maps the number
-to the gnus-part."
+ "Gather all MIME parts as an alist.
+The alist uniquely maps the number to the gnus-part."
(let ((parts '()))
(save-excursion
(goto-char (point-min))
@@ -468,7 +465,7 @@
parts))
-(defun mu4e-view-save-attachments (&optional arg)
+(defun mu4e-view-save-attachments (&optional _arg)
"Save mime parts from current mu4e gnus view buffer.
When helm-mode is enabled provide completion on attachments and
@@ -503,7 +500,7 @@
dir (if arg (read-directory-name "Save to directory: ")
mu4e-attachment-dir))
(cl-loop for (f . h) in handles
when (member f files)
- do (mm-save-part-to-file h (expand-file-name f dir))))
+ do (mm-save-part h (expand-file-name f dir))))
(mu4e-message "No attached files found"))))
@@ -513,9 +510,9 @@
;; some basic ones
;;
- ;; save mime-part to a file
+ ;; save MIME-part to a file
(:name "save" :handler gnus-article-save-part :receives index)
- ;; pipe mime part to some arbitrary shell command
+ ;; pipe MIME-part to some arbitrary shell command
(:name "|pipe" :handler gnus-article-pipe-part :receives index)
;; open with the default handler, if any
(:name "open" :handler mu4e~view-open-file :receives temp)
@@ -543,7 +540,9 @@
(goto-char (point-min)))
(switch-to-buffer tmpbuf))) :receives pipe))
- "Actions for MIME-parts. Each is a plist with keys
+ "Specifies actions for MIME-parts.
+
+Each of the actions is a plist with keys
`(:name <name> ;; name of the action; shortcut is first letter of name
:handler ;; one of:
@@ -561,11 +560,11 @@
(defun mu4e~view-mime-part-to-temp-file (handle)
- "Write mime-part N to a temporary file and return the file name.
+ "Write MIME-part HANDLE to a temporary file and return the file name.
The filename is deduced from the MIME-part's filename, or
-otherwise random; the result is placed in temporary directory
-with a unique name. Returns the full path for the file
-created. The directory and file are self-destructed."
+otherwise random; the result is placed in a temporary directory
+with a unique name. Returns the full path for the file created.
+The directory and file are self-destructed."
(let* ((tmpdir (make-temp-file "mu4e-temp-" t))
(fname (cdr-safe (assoc 'filename (assoc "attachment" (cdr handle)))))
(fname (if fname
@@ -578,8 +577,9 @@
(defun mu4e~view-open-file (file &optional force-ask)
- "Open FILE with default handler, if any. Otherwise, or if FORCE_ASK is set,
-ask user for the program to open with."
+ "Open FILE with default handler, if any.
+Otherwise, or if FORCE-ASK is set, ask user for the program to
+open with."
(let* ((opener
(pcase system-type
(`darwin "open")
@@ -590,24 +590,21 @@
(call-process prog nil 0 nil file)))
(defun mu4e-view-mime-part-action (&optional n)
- "Apply some action on mime-part N in the current messsage.
-If N is not specified, ask for it. N can be supplied as a
-prefix-argument, and note that one does not need to prefix that
-with C-u.
-
-I.e., '3 A o' opens the third MIME-part."
+ "Apply some action to MIME-part N in the current messsage.
+If N is not specified, ask for it. For instance, '3 A o' opens
+the third MIME-part."
(interactive "NNumber of MIME-part: ")
(let* ((parts (mu4e~view-gather-mime-parts))
(options (mapcar (lambda (action) `(,(plist-get action :name) .
,action))
mu4e-view-mime-part-actions))
(handle (or (cdr-safe (cl-find-if (lambda (part) (eq (car part) n))
parts))
(mu4e-error "MIME-part %s not found" n)))
- (action (or (and options (mu4e-read-option "Action on mime-part: "
options))
+ (action (or (and options (mu4e-read-option "Action on MIME-part: "
options))
(mu4e-error "No such action")))
(handler (or (plist-get action :handler)
- (mu4e-error "No :handler found for action %S" action)))
+ (mu4e-error "No :handler item found for action %S"
action)))
(receives (or (plist-get action :receives)
- (mu4e-error "No :receives found for action %S"
action))))
+ (mu4e-error "No :receives item found for action %S"
action))))
(save-excursion
(cond
((functionp handler)
@@ -629,6 +626,18 @@
(mu4e~view-mime-part-to-temp-file handle))))))
(t (mu4e-error "Invalid action %S" action))))))))
-;;;
+(defun mu4e-view-toggle-html ()
+ "Toggle html-display of the first html-part found."
+ (interactive)
+ ;; This function assumes `gnus-article-mime-handle-alist' is sorted by
+ ;; pertinence, i.e. the first HTML part found in it is the most important
one.
+ (if-let ((html-part
+ (seq-find (lambda (handle)
+ (equal (mm-handle-media-type (cdr handle))
"text/html"))
+ gnus-article-mime-handle-alist)))
+ (gnus-article-inline-part (car html-part))
+ (mu4e-warn "No html part in this message")))
+
+
(provide 'mu4e-view-gnus)
-;;; mu4e-view.el ends here
+;;; mu4e-view-gnus.el ends here
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/mu4e/mu4e.info new/mu-1.6.4/mu4e/mu4e.info
--- old/mu-1.6.3/mu4e/mu4e.info 2021-08-12 18:08:07.000000000 +0200
+++ new/mu-1.6.4/mu4e/mu4e.info 2021-08-21 15:23:23.000000000 +0200
@@ -19,7 +19,7 @@
mu4e manual
***********
-Welcome to mu4e 1.6.3.
+Welcome to mu4e 1.6.4.
mu4e (mu-for-emacs) is an e-mail client for GNU Emacs version 24.4 or
higher, built on top of the mu(1) e-mail search engine. mu4e is
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/mu4e/stamp-vti new/mu-1.6.4/mu4e/stamp-vti
--- old/mu-1.6.3/mu4e/stamp-vti 2021-08-12 18:08:06.000000000 +0200
+++ new/mu-1.6.4/mu4e/stamp-vti 2021-08-21 15:23:22.000000000 +0200
@@ -1,4 +1,4 @@
-@set UPDATED 12 August 2021
+@set UPDATED 15 August 2021
@set UPDATED-MONTH August 2021
-@set EDITION 1.6.3
-@set VERSION 1.6.3
+@set EDITION 1.6.4
+@set VERSION 1.6.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/mu-1.6.3/mu4e/version.texi
new/mu-1.6.4/mu4e/version.texi
--- old/mu-1.6.3/mu4e/version.texi 2021-08-12 18:08:06.000000000 +0200
+++ new/mu-1.6.4/mu4e/version.texi 2021-08-21 15:23:22.000000000 +0200
@@ -1,4 +1,4 @@
-@set UPDATED 12 August 2021
+@set UPDATED 15 August 2021
@set UPDATED-MONTH August 2021
-@set EDITION 1.6.3
-@set VERSION 1.6.3
+@set EDITION 1.6.4
+@set VERSION 1.6.4
