From e893eca57ac763cad1547edf5ccecc6e3faa4521 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 8 Nov 2016 15:39:09 +0100 Subject: [PATCH] updated mew - update to mew-20161030.1807 Signed-off-by: Andreas Gerler --- elpa/mew-20150813.2354/mew-pkg.el | 4 - .../dir | 0 .../etc/Mew.img | 0 .../etc/Mew.png | Bin .../etc/Mew.xbm | 0 .../etc/Mew.xpm | 0 .../etc/mew-Audio.xpm | 0 .../etc/mew-Blank.xpm | 0 .../etc/mew-External.xpm | 0 .../etc/mew-Folder.xpm | 0 .../etc/mew-Image.xpm | 0 .../etc/mew-Octet-Stream.xpm | 0 .../etc/mew-Postscript.xpm | 0 .../etc/mew-Rfc822.xpm | 0 .../etc/mew-Text.xpm | 0 .../etc/mew-Unknown.xpm | 0 .../etc/mew-Video.xpm | 0 .../etc/mew-attach.xpm | 0 .../etc/mew-cite.xpm | 0 .../etc/mew-forward.xpm | 0 .../etc/mew-inc.xpm | 0 .../etc/mew-lock.xpm | 0 .../etc/mew-next.xpm | 0 .../etc/mew-pgp-enc.xpm | 0 .../etc/mew-pgp-sigenc.xpm | 0 .../etc/mew-pgp-sign.xpm | 0 .../etc/mew-prev.xpm | 0 .../etc/mew-queue.xpm | 0 .../etc/mew-refile.xpm | 0 .../etc/mew-reply.xpm | 0 .../etc/mew-send.xpm | 0 .../etc/mew-sep.xpm | 0 .../etc/mew-show.xpm | 0 .../etc/mew-write.xpm | 0 .../etc/mew-yank.xpm | 0 .../mew-addrbook.el | 0 .../mew-attach.el | 2 +- .../mew-auth.el | 0 .../mew-autoloads.el | 6 +- .../mew-blvs.el | 0 .../mew-bq.el | 4 +- .../mew-cache.el | 0 .../mew-complete.el | 2 +- .../mew-config.el | 0 .../mew-const.el | 0 .../mew-darwin.el | 49 +++++--- .../mew-decode.el | 0 .../mew-demo.el | 0 .../mew-draft.el | 2 +- .../mew-edit.el | 4 + .../mew-encode.el | 2 +- .../mew-env.el | 22 ++-- .../mew-exec.el | 0 .../mew-ext.el | 14 +-- .../mew-fib.el | 0 .../mew-func.el | 20 ++-- .../mew-gemacs.el | 0 .../mew-header.el | 0 .../mew-highlight.el | 0 .../mew-imap.el | 2 +- .../mew-imap2.el | 4 +- .../mew-key.el | 0 .../mew-lang-jp.el | 0 .../mew-lang-kr.el | 0 .../mew-lang-latin.el | 0 .../mew-local.el | 0 .../mew-mark.el | 0 .../mew-message.el | 0 .../mew-mime.el | 30 ++--- .../mew-minibuf.el | 0 .../mew-mule.el | 0 .../mew-mule3.el | 0 .../mew-net.el | 2 +- .../mew-nntp.el | 4 +- .../mew-nntp2.el | 8 +- .../mew-passwd.el | 11 +- .../mew-pgp.el | 110 +++++++++++------- .../mew-pick.el | 50 ++++---- elpa/mew-20161030.1807/mew-pkg.el | 4 + .../mew-pop.el | 2 +- .../mew-refile.el | 6 +- .../mew-scan.el | 0 .../mew-search.el | 20 ++-- .../mew-smime.el | 6 +- .../mew-smtp.el | 4 +- .../mew-sort.el | 14 +-- .../mew-ssh.el | 4 +- .../mew-ssl.el | 6 +- .../mew-summary.el | 0 .../mew-summary2.el | 0 .../mew-summary3.el | 0 .../mew-summary4.el | 0 .../mew-syntax.el | 4 +- .../mew-thread.el | 3 +- .../mew-unix.el | 94 ++++++++------- .../mew-vars.el | 0 .../mew-vars2.el | 0 .../mew-vars3.el | 0 .../mew-varsx.el | 0 .../mew-virtual.el | 4 +- .../mew-win32.el | 72 ++++++++---- .../mew.el | 8 +- .../mew.info | 0 .../mew.info-1 | 0 .../mew.info-2 | 0 .../mew.info-3 | 0 .../mew.info-4 | 0 .../mew.info-5 | 0 .../mew.ja.info | 0 .../mew.ja.info-1 | 0 .../mew.ja.info-2 | 0 .../mew.ja.info-3 | 0 112 files changed, 339 insertions(+), 264 deletions(-) delete mode 100644 elpa/mew-20150813.2354/mew-pkg.el rename elpa/{mew-20150813.2354 => mew-20161030.1807}/dir (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/Mew.img (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/Mew.png (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/Mew.xbm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/Mew.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Audio.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Blank.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-External.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Folder.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Image.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Octet-Stream.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Postscript.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Rfc822.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Text.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Unknown.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-Video.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-attach.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-cite.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-forward.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-inc.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-lock.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-next.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-pgp-enc.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-pgp-sigenc.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-pgp-sign.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-prev.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-queue.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-refile.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-reply.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-send.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-sep.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-show.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-write.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/etc/mew-yank.xpm (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-addrbook.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-attach.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-auth.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-autoloads.el (94%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-blvs.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-bq.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-cache.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-complete.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-config.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-const.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-darwin.el (97%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-decode.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-demo.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-draft.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-edit.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-encode.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-env.el (95%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-exec.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-ext.el (97%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-fib.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-func.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-gemacs.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-header.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-highlight.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-imap.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-imap2.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-key.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-lang-jp.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-lang-kr.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-lang-latin.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-local.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-mark.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-message.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-mime.el (97%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-minibuf.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-mule.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-mule3.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-net.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-nntp.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-nntp2.el (98%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-passwd.el (97%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-pgp.el (92%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-pick.el (95%) create mode 100644 elpa/mew-20161030.1807/mew-pkg.el rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-pop.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-refile.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-scan.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-search.el (98%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-smime.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-smtp.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-sort.el (97%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-ssh.el (98%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-ssl.el (98%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-summary.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-summary2.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-summary3.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-summary4.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-syntax.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-thread.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-unix.el (98%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-vars.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-vars2.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-vars3.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-varsx.el (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-virtual.el (98%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew-win32.el (97%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.el (99%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.info (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.info-1 (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.info-2 (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.info-3 (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.info-4 (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.info-5 (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.ja.info (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.ja.info-1 (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.ja.info-2 (100%) rename elpa/{mew-20150813.2354 => mew-20161030.1807}/mew.ja.info-3 (100%) diff --git a/elpa/mew-20150813.2354/mew-pkg.el b/elpa/mew-20150813.2354/mew-pkg.el deleted file mode 100644 index 61c16b4a..00000000 --- a/elpa/mew-20150813.2354/mew-pkg.el +++ /dev/null @@ -1,4 +0,0 @@ -(define-package "mew" "20150813.2354" "Messaging in the Emacs World" 'nil) -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/mew-20150813.2354/dir b/elpa/mew-20161030.1807/dir similarity index 100% rename from elpa/mew-20150813.2354/dir rename to elpa/mew-20161030.1807/dir diff --git a/elpa/mew-20150813.2354/etc/Mew.img b/elpa/mew-20161030.1807/etc/Mew.img similarity index 100% rename from elpa/mew-20150813.2354/etc/Mew.img rename to elpa/mew-20161030.1807/etc/Mew.img diff --git a/elpa/mew-20150813.2354/etc/Mew.png b/elpa/mew-20161030.1807/etc/Mew.png similarity index 100% rename from elpa/mew-20150813.2354/etc/Mew.png rename to elpa/mew-20161030.1807/etc/Mew.png diff --git a/elpa/mew-20150813.2354/etc/Mew.xbm b/elpa/mew-20161030.1807/etc/Mew.xbm similarity index 100% rename from elpa/mew-20150813.2354/etc/Mew.xbm rename to elpa/mew-20161030.1807/etc/Mew.xbm diff --git a/elpa/mew-20150813.2354/etc/Mew.xpm b/elpa/mew-20161030.1807/etc/Mew.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/Mew.xpm rename to elpa/mew-20161030.1807/etc/Mew.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Audio.xpm b/elpa/mew-20161030.1807/etc/mew-Audio.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Audio.xpm rename to elpa/mew-20161030.1807/etc/mew-Audio.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Blank.xpm b/elpa/mew-20161030.1807/etc/mew-Blank.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Blank.xpm rename to elpa/mew-20161030.1807/etc/mew-Blank.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-External.xpm b/elpa/mew-20161030.1807/etc/mew-External.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-External.xpm rename to elpa/mew-20161030.1807/etc/mew-External.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Folder.xpm b/elpa/mew-20161030.1807/etc/mew-Folder.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Folder.xpm rename to elpa/mew-20161030.1807/etc/mew-Folder.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Image.xpm b/elpa/mew-20161030.1807/etc/mew-Image.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Image.xpm rename to elpa/mew-20161030.1807/etc/mew-Image.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Octet-Stream.xpm b/elpa/mew-20161030.1807/etc/mew-Octet-Stream.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Octet-Stream.xpm rename to elpa/mew-20161030.1807/etc/mew-Octet-Stream.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Postscript.xpm b/elpa/mew-20161030.1807/etc/mew-Postscript.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Postscript.xpm rename to elpa/mew-20161030.1807/etc/mew-Postscript.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Rfc822.xpm b/elpa/mew-20161030.1807/etc/mew-Rfc822.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Rfc822.xpm rename to elpa/mew-20161030.1807/etc/mew-Rfc822.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Text.xpm b/elpa/mew-20161030.1807/etc/mew-Text.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Text.xpm rename to elpa/mew-20161030.1807/etc/mew-Text.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Unknown.xpm b/elpa/mew-20161030.1807/etc/mew-Unknown.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Unknown.xpm rename to elpa/mew-20161030.1807/etc/mew-Unknown.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-Video.xpm b/elpa/mew-20161030.1807/etc/mew-Video.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-Video.xpm rename to elpa/mew-20161030.1807/etc/mew-Video.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-attach.xpm b/elpa/mew-20161030.1807/etc/mew-attach.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-attach.xpm rename to elpa/mew-20161030.1807/etc/mew-attach.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-cite.xpm b/elpa/mew-20161030.1807/etc/mew-cite.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-cite.xpm rename to elpa/mew-20161030.1807/etc/mew-cite.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-forward.xpm b/elpa/mew-20161030.1807/etc/mew-forward.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-forward.xpm rename to elpa/mew-20161030.1807/etc/mew-forward.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-inc.xpm b/elpa/mew-20161030.1807/etc/mew-inc.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-inc.xpm rename to elpa/mew-20161030.1807/etc/mew-inc.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-lock.xpm b/elpa/mew-20161030.1807/etc/mew-lock.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-lock.xpm rename to elpa/mew-20161030.1807/etc/mew-lock.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-next.xpm b/elpa/mew-20161030.1807/etc/mew-next.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-next.xpm rename to elpa/mew-20161030.1807/etc/mew-next.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-pgp-enc.xpm b/elpa/mew-20161030.1807/etc/mew-pgp-enc.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-pgp-enc.xpm rename to elpa/mew-20161030.1807/etc/mew-pgp-enc.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-pgp-sigenc.xpm b/elpa/mew-20161030.1807/etc/mew-pgp-sigenc.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-pgp-sigenc.xpm rename to elpa/mew-20161030.1807/etc/mew-pgp-sigenc.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-pgp-sign.xpm b/elpa/mew-20161030.1807/etc/mew-pgp-sign.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-pgp-sign.xpm rename to elpa/mew-20161030.1807/etc/mew-pgp-sign.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-prev.xpm b/elpa/mew-20161030.1807/etc/mew-prev.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-prev.xpm rename to elpa/mew-20161030.1807/etc/mew-prev.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-queue.xpm b/elpa/mew-20161030.1807/etc/mew-queue.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-queue.xpm rename to elpa/mew-20161030.1807/etc/mew-queue.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-refile.xpm b/elpa/mew-20161030.1807/etc/mew-refile.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-refile.xpm rename to elpa/mew-20161030.1807/etc/mew-refile.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-reply.xpm b/elpa/mew-20161030.1807/etc/mew-reply.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-reply.xpm rename to elpa/mew-20161030.1807/etc/mew-reply.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-send.xpm b/elpa/mew-20161030.1807/etc/mew-send.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-send.xpm rename to elpa/mew-20161030.1807/etc/mew-send.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-sep.xpm b/elpa/mew-20161030.1807/etc/mew-sep.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-sep.xpm rename to elpa/mew-20161030.1807/etc/mew-sep.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-show.xpm b/elpa/mew-20161030.1807/etc/mew-show.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-show.xpm rename to elpa/mew-20161030.1807/etc/mew-show.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-write.xpm b/elpa/mew-20161030.1807/etc/mew-write.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-write.xpm rename to elpa/mew-20161030.1807/etc/mew-write.xpm diff --git a/elpa/mew-20150813.2354/etc/mew-yank.xpm b/elpa/mew-20161030.1807/etc/mew-yank.xpm similarity index 100% rename from elpa/mew-20150813.2354/etc/mew-yank.xpm rename to elpa/mew-20161030.1807/etc/mew-yank.xpm diff --git a/elpa/mew-20150813.2354/mew-addrbook.el b/elpa/mew-20161030.1807/mew-addrbook.el similarity index 100% rename from elpa/mew-20150813.2354/mew-addrbook.el rename to elpa/mew-20161030.1807/mew-addrbook.el diff --git a/elpa/mew-20150813.2354/mew-attach.el b/elpa/mew-20161030.1807/mew-attach.el similarity index 99% rename from elpa/mew-20150813.2354/mew-attach.el rename to elpa/mew-20161030.1807/mew-attach.el index bc31856d..a405d6a4 100644 --- a/elpa/mew-20150813.2354/mew-attach.el +++ b/elpa/mew-20161030.1807/mew-attach.el @@ -827,7 +827,7 @@ Input decrypters' addresses." (t (message "Nothing happened")))))) -(defun mew-draft-dnd-handle-remote-url (uri _action) +(defun mew-draft-dnd-handle-remote-url (_uri _action) (error "Remote files not supported") nil) (defvar mew-draft-dnd-handle-remote-file-function diff --git a/elpa/mew-20150813.2354/mew-auth.el b/elpa/mew-20161030.1807/mew-auth.el similarity index 100% rename from elpa/mew-20150813.2354/mew-auth.el rename to elpa/mew-20161030.1807/mew-auth.el diff --git a/elpa/mew-20150813.2354/mew-autoloads.el b/elpa/mew-20161030.1807/mew-autoloads.el similarity index 94% rename from elpa/mew-20150813.2354/mew-autoloads.el rename to elpa/mew-20161030.1807/mew-autoloads.el index 81c2efae..b53b5959 100644 --- a/elpa/mew-20150813.2354/mew-autoloads.el +++ b/elpa/mew-20161030.1807/mew-autoloads.el @@ -1,9 +1,9 @@ ;;; mew-autoloads.el --- automatically extracted autoloads ;; ;;; Code: -(add-to-list 'load-path (or (file-name-directory #$) (car load-path))) +(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) -;;;### (autoloads nil "mew" "mew.el" (22007 46197 0 0)) +;;;### (autoloads nil "mew" "mew.el" (22560 30521 0 0)) ;;; Generated autoloads from mew.el (autoload 'mew "mew" "\ @@ -69,7 +69,7 @@ CONTINUE, YANK-ACTION and SEND-ACTIONS are ignored. ;;;;;; "mew-summary2.el" "mew-summary3.el" "mew-summary4.el" "mew-syntax.el" ;;;;;; "mew-thread.el" "mew-unix.el" "mew-vars.el" "mew-vars2.el" ;;;;;; "mew-vars3.el" "mew-varsx.el" "mew-virtual.el" "mew-win32.el") -;;;;;; (22007 46198 630682 0)) +;;;;;; (22560 30521 0 0)) ;;;*** diff --git a/elpa/mew-20150813.2354/mew-blvs.el b/elpa/mew-20161030.1807/mew-blvs.el similarity index 100% rename from elpa/mew-20150813.2354/mew-blvs.el rename to elpa/mew-20161030.1807/mew-blvs.el diff --git a/elpa/mew-20150813.2354/mew-bq.el b/elpa/mew-20161030.1807/mew-bq.el similarity index 99% rename from elpa/mew-20150813.2354/mew-bq.el rename to elpa/mew-20161030.1807/mew-bq.el index 8e2166ee..f5a6846a 100644 --- a/elpa/mew-20150813.2354/mew-bq.el +++ b/elpa/mew-20161030.1807/mew-bq.el @@ -118,7 +118,7 @@ (let ((func (mew-header-decode-get-error-func b-or-q))) (if func (funcall func key b-or-q estr)))) -(defun mew-base64-decode-error-string (key b-or-q estr) +(defun mew-base64-decode-error-string (key _b-or-q estr) (let ((str estr) strlen r ret) (when (string-match "^\\([^=]*\\)=*$" str) (setq str (mew-match-string 1 str))) @@ -495,7 +495,7 @@ ;; end of while (mew-header-encode-cond2 nil))) -(defun mew-header-encode-text (str &optional comment key-len) +(defun mew-header-encode-text (str &optional _comment key-len) ;; 'comment' means that we are in RFC822 comment "(...)". (let ((str-list (mew-header-encode-split-string str)) head-is-e e-list) diff --git a/elpa/mew-20150813.2354/mew-cache.el b/elpa/mew-20161030.1807/mew-cache.el similarity index 100% rename from elpa/mew-20150813.2354/mew-cache.el rename to elpa/mew-20161030.1807/mew-cache.el diff --git a/elpa/mew-20150813.2354/mew-complete.el b/elpa/mew-20161030.1807/mew-complete.el similarity index 99% rename from elpa/mew-20150813.2354/mew-complete.el rename to elpa/mew-20161030.1807/mew-complete.el index 2f158dd7..afbcd408 100644 --- a/elpa/mew-20150813.2354/mew-complete.el +++ b/elpa/mew-20161030.1807/mew-complete.el @@ -58,7 +58,7 @@ (mew-remove-buffer mew-buffer-completions) (setq mew-complete-candidates nil)) -(defun mew-complete-insert-folder-function (choice buffer mini-p base-size) +(defun mew-complete-insert-folder-function (choice _buffer _mini-p _base-size) (let ((start (mew-minibuf-point-min)) (proto (substring choice 0 1)) (pos (point))) diff --git a/elpa/mew-20150813.2354/mew-config.el b/elpa/mew-20161030.1807/mew-config.el similarity index 100% rename from elpa/mew-20150813.2354/mew-config.el rename to elpa/mew-20161030.1807/mew-config.el diff --git a/elpa/mew-20150813.2354/mew-const.el b/elpa/mew-20161030.1807/mew-const.el similarity index 100% rename from elpa/mew-20150813.2354/mew-const.el rename to elpa/mew-20161030.1807/mew-const.el diff --git a/elpa/mew-20150813.2354/mew-darwin.el b/elpa/mew-20161030.1807/mew-darwin.el similarity index 97% rename from elpa/mew-20150813.2354/mew-darwin.el rename to elpa/mew-20161030.1807/mew-darwin.el index 593f749b..b1ab3aa4 100644 --- a/elpa/mew-20150813.2354/mew-darwin.el +++ b/elpa/mew-20161030.1807/mew-darwin.el @@ -5,9 +5,9 @@ ;;; Code: -;; -;; MIME setting -;; +;;; +;;; MIME setting +;;; (defvar mew-darwin-exec "open") (defvar mew-default-external-program mew-darwin-exec) @@ -29,27 +29,23 @@ (defvar mew-prog-rfc822-headers 'mew-mime-text/rfc822-headers) (defvar mew-prog-external-body '(mew-mime-external-body mew-mime-external-body-ext)) (defvar mew-prog-delivery-status 'mew-mime-text/plain) +(defvar mew-prog-oasys mew-darwin-exec) +(defvar mew-prog-octet-stream mew-darwin-exec) (defvar mew-prog-postscript mew-darwin-exec) -(defvar mew-prog-pgp-keys '(mew-mime-pgp-keys mew-mime-pgp-keys-ext)) - (defvar mew-prog-application/pdf "pdftotext") (defvar mew-prog-pdf-ext mew-darwin-exec) (defvar mew-prog-pdf `(mew-mime-application/pdf ,mew-prog-pdf-ext)) +(defvar mew-prog-pgp-keys '(mew-mime-pgp-keys mew-mime-pgp-keys-ext)) + +(defvar mew-prog-application/rtf nil) +(defvar mew-prog-rtf mew-darwin-exec) (defvar mew-prog-xml2 '(mew-mime-application/xml mew-mime-application/xml-ext)) -(defvar mew-prog-oasys mew-darwin-exec) -(defvar mew-prog-octet-stream mew-darwin-exec) -(defvar mew-prog-msword mew-darwin-exec) -(defvar mew-prog-msexcel mew-darwin-exec) -(defvar mew-prog-mspowerpoint mew-darwin-exec) -(defvar mew-prog-visio mew-darwin-exec) -(defvar mew-prog-ooffice mew-darwin-exec) -(defvar mew-prog-rtf mew-darwin-exec) (defvar mew-prog-unzip mew-darwin-exec) ;;; -;;; Text/Html, Application/Xml, Image +;;; Text/Html, Application/Xml ;;; (defvar mew-format-html "%s.html") @@ -72,15 +68,36 @@ (defvar mew-prog-application/xml nil) (defvar mew-prog-application/xml-ext mew-darwin-exec) + +;;; +;;; Image +;;; + (defvar mew-prog-image/* 'mew-mime-image/*) (defvar mew-prog-image/*-ext mew-darwin-exec) + +;;; +;;; Office +;;; + +(defvar mew-prog-ooffice mew-darwin-exec) + (defvar mew-prog-application/msword nil) +(defvar mew-prog-msword mew-darwin-exec) + (defvar mew-prog-application/msexcel nil) +(defvar mew-prog-msexcel mew-darwin-exec) + (defvar mew-prog-application/mspowerpoint nil) -(defvar mew-prog-application/rtf nil) +(defvar mew-prog-mspowerpoint mew-darwin-exec) -;; +(defvar mew-prog-visio mew-darwin-exec) + + +;;; +;;; Misc +;;; (setq mew-delete-temp-file nil) (defvar mew-dir-list-function 'mew-dir-list-with-link-count) diff --git a/elpa/mew-20150813.2354/mew-decode.el b/elpa/mew-20161030.1807/mew-decode.el similarity index 100% rename from elpa/mew-20150813.2354/mew-decode.el rename to elpa/mew-20161030.1807/mew-decode.el diff --git a/elpa/mew-20150813.2354/mew-demo.el b/elpa/mew-20161030.1807/mew-demo.el similarity index 100% rename from elpa/mew-20150813.2354/mew-demo.el rename to elpa/mew-20161030.1807/mew-demo.el diff --git a/elpa/mew-20150813.2354/mew-draft.el b/elpa/mew-20161030.1807/mew-draft.el similarity index 99% rename from elpa/mew-20150813.2354/mew-draft.el rename to elpa/mew-20161030.1807/mew-draft.el index 75869d96..db2bdb45 100644 --- a/elpa/mew-20150813.2354/mew-draft.el +++ b/elpa/mew-20161030.1807/mew-draft.el @@ -113,7 +113,7 @@ ;;; Draft subfunctions ;;; -(defun mew-draft-dynamic-highlight (beg end len) +(defun mew-draft-dynamic-highlight (_beg _end _len) (when (mew-in-header-p) (save-match-data (mew-highlight-header) diff --git a/elpa/mew-20150813.2354/mew-edit.el b/elpa/mew-20161030.1807/mew-edit.el similarity index 99% rename from elpa/mew-20150813.2354/mew-edit.el rename to elpa/mew-20161030.1807/mew-edit.el index dfd2f377..36c63f2e 100644 --- a/elpa/mew-20150813.2354/mew-edit.el +++ b/elpa/mew-20161030.1807/mew-edit.el @@ -296,6 +296,10 @@ a text object to be saved can be specified." (string-match mew-regex-nonascii file)) (setq file (mew-samba-encoding file))) (setq file (mew-summary-input-file-name nil file)) + (let ((dir (mew-parent-directory file))) + (if (and (not (file-exists-p dir)) + (y-or-n-p (format "Make directory %s? " dir))) + (mew-make-directory dir))) (if (not (file-exists-p file)) (setq doit t) (if (null mew-file-append-p) diff --git a/elpa/mew-20150813.2354/mew-encode.el b/elpa/mew-20161030.1807/mew-encode.el similarity index 99% rename from elpa/mew-20150813.2354/mew-encode.el rename to elpa/mew-20161030.1807/mew-encode.el index 6dd3ad19..70af9e98 100644 --- a/elpa/mew-20150813.2354/mew-encode.el +++ b/elpa/mew-20161030.1807/mew-encode.el @@ -240,7 +240,7 @@ ;;; Message-Id:, Date: ;;; -(defun mew-encode-id-date (pnm msgid &optional resentp) +(defun mew-encode-id-date (_pnm msgid &optional resentp) (let ((time (current-time))) (cond (resentp diff --git a/elpa/mew-20150813.2354/mew-env.el b/elpa/mew-20161030.1807/mew-env.el similarity index 95% rename from elpa/mew-20150813.2354/mew-env.el rename to elpa/mew-20161030.1807/mew-env.el index af8c56ae..a9cbfbc2 100644 --- a/elpa/mew-20150813.2354/mew-env.el +++ b/elpa/mew-20161030.1807/mew-env.el @@ -16,7 +16,7 @@ `(unless (boundp ',var-name) (defvar ,var-name nil))) (defmacro mew-no-warning-defun (func-name) - `(unless (fboundp ',func-name) (defun ,func-name(&rest args) nil))) + `(unless (fboundp ',func-name) (defun ,func-name(&rest _args) nil))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -70,7 +70,7 @@ requires PTY.") (if (fboundp 'mouse-region-match) (defalias 'mew-mouse-region-p 'mouse-region-match) - (defmacro mew-mouse-region-p (&rest args) nil)) + (defmacro mew-mouse-region-p (&rest _args) nil)) (cond ((boundp 'auto-hscroll-mode) ;; Emacs 21.3.50 or later @@ -171,7 +171,7 @@ requires PTY.") (if (and (fboundp 'set-file-times) (memq system-type '(darwin windows-nt cygwin))) (defalias 'mew-set-file-times 'set-file-times) - (defmacro mew-set-file-times (&rest args) nil)) + (defmacro mew-set-file-times (&rest _args) nil)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -221,11 +221,11 @@ requires PTY.") (if (fboundp 'unix-sync) (defalias 'mew-unix-sync 'unix-sync) - (defmacro mew-unix-sync (&rest args) nil)) + (defmacro mew-unix-sync (&rest _args) nil)) (if (fboundp 'mac-set-file-type) (defalias 'mew-mac-set-file-type 'mac-set-file-type) - (defmacro mew-mac-set-file-type (&rest args) nil)) + (defmacro mew-mac-set-file-type (&rest _args) nil)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -289,23 +289,23 @@ requires PTY.") (cond ((memq system-type '(windows-nt cygwin)) - (defun mew-set-file-type (file) ()) + (defun mew-set-file-type (_file) ()) (defvar mew-cs-est 'shift_jis) (defun mew-focus-frame (frame) (if (fboundp 'w32-focus-frame) (w32-focus-frame frame)))) ((eq system-type 'darwin) - (defun mew-set-file-type (file) + (defun mew-set-file-type (_file) ;; prevent byte-compile warning (unless mew-use-suffix - (mew-mac-set-file-type file mew-file-type))) + (mew-mac-set-file-type _file mew-file-type))) (defvar mew-cs-est 'utf-8) - (defun mew-focus-frame (frame) + (defun mew-focus-frame (_frame) (when focus-follows-mouse (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) (t - (defun mew-set-file-type (file) ()) + (defun mew-set-file-type (_file) ()) (defvar mew-cs-est 'utf-8) - (defun mew-focus-frame (frame) + (defun mew-focus-frame (_frame) (when focus-follows-mouse (set-mouse-position (selected-frame) (1- (frame-width)) 0))))) diff --git a/elpa/mew-20150813.2354/mew-exec.el b/elpa/mew-20161030.1807/mew-exec.el similarity index 100% rename from elpa/mew-20150813.2354/mew-exec.el rename to elpa/mew-20161030.1807/mew-exec.el diff --git a/elpa/mew-20150813.2354/mew-ext.el b/elpa/mew-20161030.1807/mew-ext.el similarity index 97% rename from elpa/mew-20150813.2354/mew-ext.el rename to elpa/mew-20161030.1807/mew-ext.el index 5a793da1..3428b082 100644 --- a/elpa/mew-20150813.2354/mew-ext.el +++ b/elpa/mew-20161030.1807/mew-ext.el @@ -285,7 +285,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun mew-ext-ftp (cache begin end &optional params) +(defun mew-ext-ftp (_cache _begin _end &optional params) (mew-elet (let* ((site (mew-syntax-get-param params "site")) (directory (mew-syntax-get-param params "directory")) @@ -314,7 +314,7 @@ "To get this file, type " "'\\\\[mew-summary-execute-external]'.\n")))) -(defun mew-ext-ftp-ext (cache begin end &optional params) +(defun mew-ext-ftp-ext (_cache _begin _end &optional params) (let* ((site (mew-syntax-get-param params "site")) (directory (mew-syntax-get-param params "directory")) (name (mew-syntax-get-param params "name")) @@ -337,12 +337,12 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun mew-ext-tftp (cache begin end &optional params) +(defun mew-ext-tftp (_cache _begin _end &optional _params) (message "Access-type TFTP is not supported yet")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun mew-ext-anon-ftp (cache begin end &optional params) +(defun mew-ext-anon-ftp (_cache _begin _end &optional params) (mew-elet (let* ((site (mew-syntax-get-param params "site")) (directory (mew-syntax-get-param params "directory")) @@ -372,7 +372,7 @@ "To get this file, type " "'\\\\[mew-summary-execute-external]'.\n")))) -(defun mew-ext-anon-ftp-ext (cache begin end &optional params) +(defun mew-ext-anon-ftp-ext (_cache _begin _end &optional params) (let* ((site (mew-syntax-get-param params "site")) (directory (mew-syntax-get-param params "directory")) (name (mew-syntax-get-param params "name")) @@ -394,7 +394,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun mew-ext-mail-server (cache begin end &optional params) +(defun mew-ext-mail-server (_cache _begin _end &optional params) (mew-elet (let* ((server (mew-syntax-get-param params "server")) (size (mew-syntax-get-param params "size"))) @@ -468,7 +468,7 @@ "To operate this URL, type " "'\\\\[mew-summary-execute-external]'.\n")))) -(defun mew-ext-url-ext (cache begin end &optional params) +(defun mew-ext-url-ext (_cache _begin _end &optional params) (let* ((url (mew-syntax-get-param params "url")) (process-connection-type mew-connection-type1) (spec mew-prog-text/html-ext) diff --git a/elpa/mew-20150813.2354/mew-fib.el b/elpa/mew-20161030.1807/mew-fib.el similarity index 100% rename from elpa/mew-20150813.2354/mew-fib.el rename to elpa/mew-20161030.1807/mew-fib.el diff --git a/elpa/mew-20150813.2354/mew-func.el b/elpa/mew-20161030.1807/mew-func.el similarity index 99% rename from elpa/mew-20150813.2354/mew-func.el rename to elpa/mew-20161030.1807/mew-func.el index 5e0b1814..a579ae89 100644 --- a/elpa/mew-20150813.2354/mew-func.el +++ b/elpa/mew-20161030.1807/mew-func.el @@ -297,9 +297,10 @@ in the context of FUNC." (defun mew-replace-character (string from to) "Replace characters equal to FROM to TO in STRING." - (dotimes (cnt (length string) string) + (dotimes (cnt (length string)) (if (char-equal (aref string cnt) from) - (aset string cnt to)))) + (aset string cnt to))) + string) (defun mew-replace-white-space (string) "Replace white characters to a space." @@ -321,7 +322,7 @@ Words are separated by '/' and '-'." (let* ((len (length ostr)) (nstr (mew-make-string len)) (topp t) c) - (dotimes (i len nstr) + (dotimes (i len) (setq c (aref ostr i)) (cond (topp @@ -331,7 +332,8 @@ Words are separated by '/' and '-'." (aset nstr i c) (setq topp t)) (t - (aset nstr i (downcase c))))))) + (aset nstr i (downcase c))))) + nstr)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -1059,8 +1061,9 @@ and sets buffer-file-coding-system." (let* ((base (if nump mew-random-base-09 mew-random-base-az)) (baselen (length base)) (ret (mew-make-string len))) - (dotimes (i len ret) - (aset ret i (aref base (% (mew-random) baselen)))))) + (dotimes (i len) + (aset ret i (aref base (% (mew-random) baselen)))) + ret)) (defun mew-random-filename (dir len nump &optional suffix) (let ((cnt 0) (max 20) ;; ad hoc @@ -1593,10 +1596,11 @@ by side-effect." (defun mew-keyword-number-pair (spec) (let ((len (length spec)) key ret) - (dotimes (i len (nreverse ret)) + (dotimes (i len) (setq key (intern (concat ":" (symbol-name (car spec))))) (setq ret (cons (cons key i) ret)) - (setq spec (cdr spec))))) + (setq spec (cdr spec))) + (nreverse ret))) (defmacro mew-defstruct (type &rest spec) `(progn diff --git a/elpa/mew-20150813.2354/mew-gemacs.el b/elpa/mew-20161030.1807/mew-gemacs.el similarity index 100% rename from elpa/mew-20150813.2354/mew-gemacs.el rename to elpa/mew-20161030.1807/mew-gemacs.el diff --git a/elpa/mew-20150813.2354/mew-header.el b/elpa/mew-20161030.1807/mew-header.el similarity index 100% rename from elpa/mew-20150813.2354/mew-header.el rename to elpa/mew-20161030.1807/mew-header.el diff --git a/elpa/mew-20150813.2354/mew-highlight.el b/elpa/mew-20161030.1807/mew-highlight.el similarity index 100% rename from elpa/mew-20150813.2354/mew-highlight.el rename to elpa/mew-20161030.1807/mew-highlight.el diff --git a/elpa/mew-20150813.2354/mew-imap.el b/elpa/mew-20161030.1807/mew-imap.el similarity index 99% rename from elpa/mew-20150813.2354/mew-imap.el rename to elpa/mew-20161030.1807/mew-imap.el index 26f8e1d6..cfc19265 100644 --- a/elpa/mew-20150813.2354/mew-imap.el +++ b/elpa/mew-20161030.1807/mew-imap.el @@ -924,7 +924,7 @@ (defun mew-imap-command-logout3 (pro pnm) (mew-imap-process-send-string pro pnm "LOGOUT")) -(defun mew-imap-command-noop (pro pnm) +(defun mew-imap-command-noop (_pro _pnm) ()) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/elpa/mew-20150813.2354/mew-imap2.el b/elpa/mew-20161030.1807/mew-imap2.el similarity index 99% rename from elpa/mew-20150813.2354/mew-imap2.el rename to elpa/mew-20161030.1807/mew-imap2.el index 1450f0ce..49b82314 100644 --- a/elpa/mew-20150813.2354/mew-imap2.el +++ b/elpa/mew-20161030.1807/mew-imap2.el @@ -197,7 +197,7 @@ (mew-imap2-set-status pnm "post-append") (mew-imap2-command-post-append pro pnm)))) -(defun mew-imap2-command-post-append (pro pnm) +(defun mew-imap2-command-post-append (pro _pnm) (process-send-region pro (point-min) (point-max)) (process-send-string pro mew-cs-eol)) ;; APPEND command ends @@ -231,7 +231,7 @@ (mew-imap2-set-status pnm "logout") (mew-imap2-process-send-string pro pnm "LOGOUT"))) -(defun mew-imap2-command-noop (pro pnm) +(defun mew-imap2-command-noop (_pro _pnm) ()) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/elpa/mew-20150813.2354/mew-key.el b/elpa/mew-20161030.1807/mew-key.el similarity index 100% rename from elpa/mew-20150813.2354/mew-key.el rename to elpa/mew-20161030.1807/mew-key.el diff --git a/elpa/mew-20150813.2354/mew-lang-jp.el b/elpa/mew-20161030.1807/mew-lang-jp.el similarity index 100% rename from elpa/mew-20150813.2354/mew-lang-jp.el rename to elpa/mew-20161030.1807/mew-lang-jp.el diff --git a/elpa/mew-20150813.2354/mew-lang-kr.el b/elpa/mew-20161030.1807/mew-lang-kr.el similarity index 100% rename from elpa/mew-20150813.2354/mew-lang-kr.el rename to elpa/mew-20161030.1807/mew-lang-kr.el diff --git a/elpa/mew-20150813.2354/mew-lang-latin.el b/elpa/mew-20161030.1807/mew-lang-latin.el similarity index 100% rename from elpa/mew-20150813.2354/mew-lang-latin.el rename to elpa/mew-20161030.1807/mew-lang-latin.el diff --git a/elpa/mew-20150813.2354/mew-local.el b/elpa/mew-20161030.1807/mew-local.el similarity index 100% rename from elpa/mew-20150813.2354/mew-local.el rename to elpa/mew-20161030.1807/mew-local.el diff --git a/elpa/mew-20150813.2354/mew-mark.el b/elpa/mew-20161030.1807/mew-mark.el similarity index 100% rename from elpa/mew-20150813.2354/mew-mark.el rename to elpa/mew-20161030.1807/mew-mark.el diff --git a/elpa/mew-20150813.2354/mew-message.el b/elpa/mew-20161030.1807/mew-message.el similarity index 100% rename from elpa/mew-20150813.2354/mew-message.el rename to elpa/mew-20161030.1807/mew-message.el diff --git a/elpa/mew-20150813.2354/mew-mime.el b/elpa/mew-20161030.1807/mew-mime.el similarity index 97% rename from elpa/mew-20150813.2354/mew-mime.el rename to elpa/mew-20161030.1807/mew-mime.el index 3d4495f5..98843ca6 100644 --- a/elpa/mew-20150813.2354/mew-mime.el +++ b/elpa/mew-20161030.1807/mew-mime.el @@ -66,7 +66,7 @@ (setq mew-process-file-alist (cons (cons pro file) mew-process-file-alist)) t)) ;; to next part -(defun mew-mime-start-process-sentinel (process event) +(defun mew-mime-start-process-sentinel (process _event) (let* ((al (assoc process mew-process-file-alist)) (file (cdr al))) (save-excursion @@ -214,7 +214,7 @@ ;;; Text/Enriched ;;; -(defun mew-mime-text/enriched (cache begin end &optional params) +(defun mew-mime-text/enriched (cache begin end &optional _params) ;; called in Message buffer (when (> end begin) (save-excursion @@ -239,7 +239,7 @@ ;;; Text/Html ;;; -(defun mew-mime-text/html (cache begin end &optional params) +(defun mew-mime-text/html (cache begin end &optional _params) ;; called in Message buffer (if (and (symbolp mew-prog-text/html) (fboundp mew-prog-text/html)) (save-excursion @@ -324,7 +324,7 @@ ;;; Text/XML ;;; -(defun mew-mime-text/xml (cache begin end &optional params) +(defun mew-mime-text/xml (cache begin end &optional _params) ;; called in Message buffer (if (and (symbolp mew-prog-text/xml) (fboundp mew-prog-text/xml)) (save-excursion @@ -357,7 +357,7 @@ ;;; Application/Xml ;;; -(defun mew-mime-application/xml (cache begin end &optional params) +(defun mew-mime-application/xml (cache begin end &optional _params) ;; called in Message buffer (if (and (symbolp mew-prog-application/xml) (fboundp mew-prog-application/xml)) @@ -389,7 +389,7 @@ ;;; Text/X-Patch ;;; -(defun mew-mime-text/patch-ext (cache begin end &optional params) +(defun mew-mime-text/patch-ext (cache begin end &optional _params) (when (> end begin) (save-excursion (switch-to-buffer-other-frame "*Mew Patch*") @@ -403,7 +403,7 @@ ;;; Image/* ;;; -(defun mew-mime-image/* (cache begin end &optional params fname ct cte) +(defun mew-mime-image/* (cache begin end &optional _params fname ct cte) (let* ((format (mew-mime-image-format-name ct))) (if (mew-image-inline-p format) (mew-mime-image cache begin end format) @@ -423,7 +423,7 @@ (insert "\n") (mew-mime-part-messages t)))) -(defun mew-mime-image/*-ext (cache begin end &optional params fname ct cte) +(defun mew-mime-image/*-ext (cache begin end &optional _params fname _ct _cte) (let ((file (mew-make-temp-name fname))) (with-current-buffer cache (mew-flet @@ -441,7 +441,7 @@ ;;; Message/Rfc822 ;;; -(defun mew-mime-text/rfc822-headers (cache begin end &optional params) +(defun mew-mime-text/rfc822-headers (cache begin end &optional _params) ;; called in Message buffer (when (> end begin) (save-excursion @@ -526,7 +526,7 @@ (save-excursion (mew-mime-application/rtf cache begin end parameter))) -(defun mew-mime-application/msoffice (prog cache begin end &optional parameter) +(defun mew-mime-application/msoffice (prog cache begin end &optional _parameter) (let ((doit t) file1 file2) (unless mew-internal-utf-8p (condition-case nil @@ -582,7 +582,7 @@ ;;; PDF ;;; -(defun mew-mime-application/pdf (cache begin end &optional parameter) +(defun mew-mime-application/pdf (cache begin end &optional _parameter) (message "Displaying a PDF document...") (mew-erase-buffer) (let ((doit t) (prog mew-prog-application/pdf) @@ -613,7 +613,7 @@ ;;; Application/Ms-Tnef ;;; -(defun mew-mime-application-ms-tnef (cache begin end &optional parameter) +(defun mew-mime-application-ms-tnef (_cache _begin _end &optional _parameter) (insert " ####### # # ####### ########\n" " # ## # # #\n" " # # # # # #\n" @@ -628,7 +628,7 @@ (defvar mew-prog-tnef "tnef") -(defun mew-mime-application-ms-tnef-ext (cache begin end &optional parameter) +(defun mew-mime-application-ms-tnef-ext (cache begin end &optional _parameter) ;; called in Message buffer (let ((file (mew-make-temp-name)) (dir (mew-input-directory-name mew-home))) @@ -767,7 +767,7 @@ See 'mew-mime-content-type' to know how actions can be defined." (mew-summary-display-postscript 'no-hook)) (select-window win))))) -(defun mew-summary-execute-symbol (program ct ctl cache begin end params fname was-apo) +(defun mew-summary-execute-symbol (program ct _ctl cache begin end params fname was-apo) (cond ((not (fboundp program)) (message "%s is not implemented" (symbol-name program))) @@ -791,7 +791,7 @@ See 'mew-mime-content-type' to know how actions can be defined." (funcall program cache begin end params)))))) ;;; external -(defun mew-summary-execute-program (program ct ctl cache begin end params fname options async) +(defun mew-summary-execute-program (program ct ctl cache begin end _params fname options async) (if (not (mew-which-exec program)) (message "%s does not exist" program) (let ((file (mew-make-temp-name fname)) diff --git a/elpa/mew-20150813.2354/mew-minibuf.el b/elpa/mew-20161030.1807/mew-minibuf.el similarity index 100% rename from elpa/mew-20150813.2354/mew-minibuf.el rename to elpa/mew-20161030.1807/mew-minibuf.el diff --git a/elpa/mew-20150813.2354/mew-mule.el b/elpa/mew-20161030.1807/mew-mule.el similarity index 100% rename from elpa/mew-20150813.2354/mew-mule.el rename to elpa/mew-20161030.1807/mew-mule.el diff --git a/elpa/mew-20150813.2354/mew-mule3.el b/elpa/mew-20161030.1807/mew-mule3.el similarity index 100% rename from elpa/mew-20150813.2354/mew-mule3.el rename to elpa/mew-20161030.1807/mew-mule3.el diff --git a/elpa/mew-20150813.2354/mew-net.el b/elpa/mew-20161030.1807/mew-net.el similarity index 99% rename from elpa/mew-20150813.2354/mew-net.el rename to elpa/mew-20161030.1807/mew-net.el index 03d2464f..fbe2aa1a 100644 --- a/elpa/mew-20150813.2354/mew-net.el +++ b/elpa/mew-20161030.1807/mew-net.el @@ -552,7 +552,7 @@ In remote folders, visit an inbox folder and scan with 'update." (let ((get-body (if (mew-nntp-header-only case) nil t))) (mew-nntp-retrieve case 'scan case:inbox nil get-body))))))) -(defun mew-mbox-retrieve (case directive inbox &optional flush) +(defun mew-mbox-retrieve (case _directive inbox &optional flush) ;; directive is 'inc (let* ((mbox-command (mew-mbox-command case)) (mbox-command-arg (mew-mbox-command-arg case)) diff --git a/elpa/mew-20150813.2354/mew-nntp.el b/elpa/mew-20161030.1807/mew-nntp.el similarity index 99% rename from elpa/mew-20150813.2354/mew-nntp.el rename to elpa/mew-20161030.1807/mew-nntp.el index 951425bd..e9c33523 100644 --- a/elpa/mew-20150813.2354/mew-nntp.el +++ b/elpa/mew-20161030.1807/mew-nntp.el @@ -87,7 +87,7 @@ (pass (mew-nntp-input-passwd prompt pnm))) (mew-nntp-process-send-string pro "AUTHINFO PASS %s" pass))) -(defun mew-nntp-command-wpwd (pro pnm) +(defun mew-nntp-command-wpwd (_pro pnm) (mew-nntp-message pnm "NNTP password is wrong!") (mew-passwd-set-passwd (mew-nntp-passtag pnm) nil) (mew-nntp-set-status pnm "pre-quit")) @@ -331,7 +331,7 @@ (mew-nntp-set-status pnm "quit") (mew-nntp-process-send-string pro "QUIT")) -(defun mew-nntp-command-noop (pro pnm) +(defun mew-nntp-command-noop (_pro _pnm) ()) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/elpa/mew-20150813.2354/mew-nntp2.el b/elpa/mew-20161030.1807/mew-nntp2.el similarity index 98% rename from elpa/mew-20150813.2354/mew-nntp2.el rename to elpa/mew-20161030.1807/mew-nntp2.el index 4bd3c71c..4b177b76 100644 --- a/elpa/mew-20150813.2354/mew-nntp2.el +++ b/elpa/mew-20161030.1807/mew-nntp2.el @@ -53,7 +53,7 @@ ;;; Filters 2 ;;; -(defun mew-nntp2-command-mode-reader (pro pnm) +(defun mew-nntp2-command-mode-reader (pro _pnm) (mew-nntp2-process-send-string pro "MODE READER")) (defun mew-nntp2-command-authinfo (pro pnm) @@ -93,10 +93,10 @@ (mew-nntp2-set-status pnm "quit") (mew-nntp2-command-quit pro pnm)))) -(defun mew-nntp2-command-post (pro pnm) +(defun mew-nntp2-command-post (pro _pnm) (mew-nntp2-process-send-string pro "POST")) -(defun mew-nntp2-command-post-post (pro pnm) +(defun mew-nntp2-command-post-post (pro _pnm) (goto-char (point-max)) (unless (bolp) (insert "\n")) (mew-dot-insert) @@ -129,7 +129,7 @@ (mew-nntp2-set-status pnm "quit") (mew-nntp2-process-send-string pro "QUIT"))) -(defun mew-nntp2-command-noop (pro pnm) +(defun mew-nntp2-command-noop (_pro _pnm) ()) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/elpa/mew-20150813.2354/mew-passwd.el b/elpa/mew-20161030.1807/mew-passwd.el similarity index 97% rename from elpa/mew-20150813.2354/mew-passwd.el rename to elpa/mew-20161030.1807/mew-passwd.el index 80d39c9e..a80d87b9 100644 --- a/elpa/mew-20150813.2354/mew-passwd.el +++ b/elpa/mew-20161030.1807/mew-passwd.el @@ -149,8 +149,7 @@ (mew-read-passwd prompt))) (defun mew-read-passwd (prompt) - (let ((inhibit-input-event-recording t) - ;; A process filter sets inhibit-quit to t to prevent quitting. + (let (;; A process filter sets inhibit-quit to t to prevent quitting. ;; Set inhibit-quit to nil so that C-g can be used (inhibit-quit nil)) (condition-case nil @@ -199,7 +198,7 @@ (unwind-protect (with-temp-buffer (catch 'loop - (dotimes (i N) + (dotimes (_i N) ;; prevent byte-compile warning (when mew-passwd-agent-hack (mew-passwd-clear-passphrase file)) (setq pro (apply 'mew-start-process-lang mew-passwd-decryption-name @@ -239,7 +238,7 @@ (pp mew-passwd-alist (current-buffer)) (write-region (point-min) (point-max) tfile nil 'no-msg) (catch 'loop - (dotimes (i N) + (dotimes (_i N) ;; prevent byte-compile warning (setq pro (apply 'mew-start-process-lang mew-passwd-encryption-name @@ -282,7 +281,7 @@ ((string-match "exiting" string) (setq mew-passwd-rendezvous nil)))))) -(defun mew-passwd-sentinel (process event) +(defun mew-passwd-sentinel (_process _event) (setq mew-passwd-rendezvous nil)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -295,7 +294,7 @@ (with-temp-buffer (let ((coding-system-for-write 'binary) (size (mew-file-get-size file))) - (dotimes (i size) + (dotimes (_i size) ;; prevent byte-compile warning (insert 0)) (write-region (point-min) (point-max) file nil 'no-msg))) (delete-file file))) diff --git a/elpa/mew-20150813.2354/mew-pgp.el b/elpa/mew-20161030.1807/mew-pgp.el similarity index 92% rename from elpa/mew-20150813.2354/mew-pgp.el rename to elpa/mew-20161030.1807/mew-pgp.el index 46a8f33f..45432f62 100644 --- a/elpa/mew-20150813.2354/mew-pgp.el +++ b/elpa/mew-20161030.1807/mew-pgp.el @@ -16,14 +16,15 @@ (defvar mew-pgp-ver nil "Automatically set 0 if PGP version is 2. -Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") +Set 1 if 5. Set 2 if 6. Set 3 if GNUPG. Set 4 if GNUPG2.") -(defconst mew-pgp-ver2 0) -(defconst mew-pgp-ver5 1) -(defconst mew-pgp-ver6 2) -(defconst mew-pgp-verg 3) -(defconst mew-pgp-list '("PGPv2" "PGPv5" "PGPv6" "GNUPG")) -(defconst mew-pgp-keys '(pgpv2 pgpv5 pgpv6 gnupg)) ;; use symbols, cases are string +(defconst mew-pgp-ver2 0) +(defconst mew-pgp-ver5 1) +(defconst mew-pgp-ver6 2) +(defconst mew-pgp-verg 3) +(defconst mew-pgp-verg2 4) +(defconst mew-pgp-list '("PGPv2" "PGPv5" "PGPv6" "GNUPG" "GNUPG2")) +(defconst mew-pgp-keys '(pgpv2 pgpv5 pgpv6 gnupg gnupg2)) ;; use symbols, cases are string ;; mew-prog-pgp is used only for version check (defvar mew-prog-pgp2 "pgp") ;; "pgp263i", PGP selection @@ -32,87 +33,98 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") (defvar mew-prog-pgp5s "pgps") (defvar mew-prog-pgp5v "pgpv") (defvar mew-prog-pgp5k "pgpk") -(defvar mew-prog-pgp6 "pgp") ;; "pgp651i", PGP selection -(defvar mew-prog-gpg "gpg") ;; PGP selection +(defvar mew-prog-pgp6 "pgp") ;; "pgp651i", PGP selection +(defvar mew-prog-gpg "gpg") ;; PGP selection +(defvar mew-prog-gpg2 "gpg2") ;; PGP selection (defvar mew-prog-pgpe - `(,mew-prog-pgp2 ,mew-prog-pgp5e ,mew-prog-pgp6 ,mew-prog-gpg)) + `(,mew-prog-pgp2 ,mew-prog-pgp5e ,mew-prog-pgp6 ,mew-prog-gpg ,mew-prog-gpg2)) (defvar mew-prog-pgps - `(,mew-prog-pgp2 ,mew-prog-pgp5s ,mew-prog-pgp6 ,mew-prog-gpg)) + `(,mew-prog-pgp2 ,mew-prog-pgp5s ,mew-prog-pgp6 ,mew-prog-gpg ,mew-prog-gpg2)) (defvar mew-prog-pgpv - `(,mew-prog-pgp2 ,mew-prog-pgp5v ,mew-prog-pgp6 ,mew-prog-gpg)) + `(,mew-prog-pgp2 ,mew-prog-pgp5v ,mew-prog-pgp6 ,mew-prog-gpg ,mew-prog-gpg2)) (defvar mew-prog-pgpd - `(,mew-prog-pgp2 ,mew-prog-pgp5v ,mew-prog-pgp6 ,mew-prog-gpg)) + `(,mew-prog-pgp2 ,mew-prog-pgp5v ,mew-prog-pgp6 ,mew-prog-gpg ,mew-prog-gpg2)) (defvar mew-prog-pgpk - `(,mew-prog-pgp2 ,mew-prog-pgp5k ,mew-prog-pgp6 ,mew-prog-gpg)) + `(,mew-prog-pgp2 ,mew-prog-pgp5k ,mew-prog-pgp6 ,mew-prog-gpg ,mew-prog-gpg2)) (defconst mew-prog-pgpe-arg '(("-ea" "+language=en" "+batchmode=on" "+armorlines=0") ("-a" "+language=en" "+batchmode=on" "+armorlines=0") ("-ea" "+language=en" "+batchmode=on" "+armorlines=0") + ("--encrypt" "--armor" "--batch") ("--encrypt" "--armor" "--batch"))) (defconst mew-prog-pgpd-arg '(("+language=en" "+batchmode=off") ("+language=en" "+batchmode=off") ("+language=en" "+batchmode=off") + ("--decrypt") ("--decrypt"))) (defvar mew-prog-pgps-arg ;; local binding '(("-sba" "+language=en" "+batchmode=off") ("-ba" "+language=en" "+batchmode=off") ("-sba" "+language=en" "+batchmode=off") - ("--detach-sign" "--armor" "--status-fd" "1"))) + ("--detach-sign" "--armor" "--status-fd" "1") + ("--detach-sign" "--armor" "--status-fd" "1" "--command-fd" "0" "--no-tty" "--yes"))) (defconst mew-prog-pgpv-arg '(("+batchmode=on" "+language=en") ("+batchmode=on" "+language=en" "+force=on") ("+batchmode=on" "+language=en") + ("--verify" "--batch") ("--verify" "--batch"))) (defconst mew-prog-old-pgpv-arg '(("+batchmode=on" "+language=en") ("+batchmode=on" "+language=en" "+force=on") ("+batchmode=on" "+language=en") - ("--decrypt" "--batch"))) ;; --verify does not extract original data + ("--decrypt" "--batch") ;; --verify does not extract original data + ("--decrypt" "--batch"))) -(defconst mew-prog-pgp-arg-output '("-o" "-o" "-o" "--output")) -(defconst mew-prog-pgp-arg-input '(nil "-o" nil nil)) -(defconst mew-prog-pgp-arg-luserid '("-u" "-u" "-u" "--local-user")) -(defconst mew-prog-pgp-arg-ruserid '(nil "-r" nil "--remote-user")) +(defconst mew-prog-pgp-arg-output '("-o" "-o" "-o" "--output" "--output")) +(defconst mew-prog-pgp-arg-input '(nil "-o" nil nil nil)) +(defconst mew-prog-pgp-arg-luserid '("-u" "-u" "-u" "--local-user" "--local-user")) +(defconst mew-prog-pgp-arg-ruserid '(nil "-r" nil "--remote-user" "--remote-user")) (defconst mew-prog-pgpk-add-arg '(("-ka" "+batchmode=on") ("-a" "+batchmode=on") ("-ka" "+batchmode=on") + ("--import" "--batch") ("--import" "--batch"))) (defconst mew-prog-pgpk-ext-arg - '(("-kxfa") ("-xa") ("+force" "-kxfa") ("--export" "--armor" "--batch"))) + '(("-kxfa") ("-xa") ("+force" "-kxfa") ("--export" "--armor" "--batch") ("--export" "--armor" "--batch"))) (defconst mew-pgp-msg-signature '("\n\\(.*\\) signature from user \\(.*\\)\\." "\n\\(.*\\) signature made" "\\([a-zA-Z0-9]*\\) signature from user \\(.*\\)\\." + " \\(.*\\) signature from \"\\(.*\\)\"" " \\(.*\\) signature from \"\\(.*\\)\"")) (defconst mew-pgp-msg-key-id '("Key ID \\([a-zA-Z0-9]+\\) not found" ": 0x\\([a-zA-Z0-9]+\\)" ": 0x\\([a-zA-Z0-9]+\\)" + "key ID \\([a-zA-Z0-9]+\\)" "key ID \\([a-zA-Z0-9]+\\)")) (defconst mew-pgp-msg-bad-pass '("No passphrase" "Cannot unlock private key\\|It can only be decrypted" "Bad pass phrase" + "bad passphrase" "bad passphrase")) (defconst mew-pgp-msg-enter - '("Enter" "Enter" "Enter" "xxx")) + '("Enter" "Enter" "Enter" "xxx" "xxx")) (defconst mew-pgp-msg-overwrite '("Overwrite (y/N)\\? " + "Overwrite (y/N)\\? " "Overwrite (y/N)\\? " "Overwrite (y/N)\\? " "Overwrite (y/N)\\? ")) @@ -121,60 +133,69 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") '("Enter pass phrase: " "Enter pass phrase: " "Enter pass phrase: " + "Enter passphrase: " "Enter passphrase: ")) (defconst mew-pgp-msg-reenter-pass '("Enter pass phrase: " "Enter pass phrase: " "Enter pass phrase: " + "Enter passphrase: " "Enter passphrase: ")) (defconst mew-pgp-msg-no-enckey '("Key matching" "No encryption keys" "public key matching" + "public key not found" "public key not found")) (defconst mew-pgp-msg-no-validkey '("DUMMY" "^WARNING:[ -9;-~\n]+belongs? to:" "^WARNING:[ -9;-~\n]+belongs? to:" + "There is no indication that this key really belongs to the owner" "There is no indication that this key really belongs to the owner")) (defconst mew-pgp-msg-pubkey-expired '("xxx" "xxx" "xxx" + "encryption failed: unusable public key" "encryption failed: unusable public key")) (defconst mew-pgp-msg-no-vrfkey - '("Key matching" "unknown keyid" "key does not meet" "public key not found")) + '("Key matching" "unknown keyid" "key does not meet" "public key not found" "public key not found")) (defconst mew-pgp-msg-no-keyring - '("Keyring file" "Keyring file" "NO MESSAGE" "public key not found")) + '("Keyring file" "Keyring file" "NO MESSAGE" "public key not found" "public key not found")) (defconst mew-pgp-msg-no-seckey-or-secring '("You do not have the secret key" "Cannot find a private key" "Signature error\\|You do not have the secret key" + "failed: secret key not available" "failed: secret key not available")) (defconst mew-pgp-msg-unsupported '("Unsupported packet format" ;; including algorithms and packets "Unsupported packet format\\|None of the signatures were understood" "Unsupported packet format" ;; including algorithms and packets + "xxx" "xxx")) (defconst mew-pgp-msg-nocross '("xxx" "xxx" "xxx" + "is not cross-certified" "is not cross-certified")) (defconst mew-pgp-verify-addr '(".* \\(signature from user\\) " "\\( \\)" ".* \\(signature from user\\) " + "gpg: .* \\(from\\|aka\\) " "gpg: .* \\(from\\|aka\\) ")) ;; 2: ASCII armor corrupted @@ -186,7 +207,7 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") (defconst mew-pgp-msg-no-export-key '("Key not found" "No keys" "Key not found" "nothing exported")) -(defvar mew-pgp-micalg '("pgp-md5" "pgp-sha1" "pgp-sha1" "pgp-sha1")) +(defvar mew-pgp-micalg '("pgp-md5" "pgp-sha1" "pgp-sha1" "pgp-sha1" "pgp-sha1")) (defvar mew-pgp-hash-alist '(("1" . "pgp-md5") @@ -271,12 +292,15 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") (if (search-forward "Pretty Good Privacy(tm) 2" nil t) (setq mew-pgp-ver mew-pgp-ver2) (goto-char (point-min)) - (if (search-forward "gpg" nil t) - (setq mew-pgp-ver mew-pgp-verg) + (if (search-forward "Unknown system error" nil t) + (setq mew-pgp-ver mew-pgp-verg2) (goto-char (point-min)) - (if (search-forward "Pretty Good Privacy(tm) Version 6" nil t) - (setq mew-pgp-ver mew-pgp-ver6) - (setq mew-pgp-ver nil))))))) + (if (search-forward "gpg" nil t) + (setq mew-pgp-ver mew-pgp-verg) + (goto-char (point-min)) + (if (search-forward "Pretty Good Privacy(tm) Version 6" nil t) + (setq mew-pgp-ver mew-pgp-ver6) + (setq mew-pgp-ver nil)))))))) (t (setq mew-pgp-ver nil)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -290,7 +314,7 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") (setq mew-prog-pgp (completing-read "PGP name: " - (mapcar 'list (list mew-prog-pgp2 mew-prog-pgp5 mew-prog-gpg)) + (mapcar 'list (list mew-prog-pgp2 mew-prog-pgp5 mew-prog-gpg mew-prog-gpg2)) nil t)) (mew-pgp-setup)) @@ -438,7 +462,7 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") ;;; PGP decrypting ;;; -(defun mew-pgp-decrypt (file1 file2) +(defun mew-pgp-decrypt (_file1 file2) ;; file1 is a key file. just ignore. ;; file2 is an encrypted file with PGP. (message "PGP decrypting...") @@ -490,7 +514,8 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") (defun mew-pgp-get-micalg () (let ((micalg (mew-pgp-get mew-pgp-micalg)) alg) - (if (/= mew-pgp-ver mew-pgp-verg) + (if (and (/= mew-pgp-ver mew-pgp-verg) + (/= mew-pgp-ver mew-pgp-verg2)) micalg (with-temp-buffer (insert mew-pgp-string) @@ -533,7 +558,7 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") ;;; PGP process functions ;;; -(defun mew-pgp-process-sentinel (process event) +(defun mew-pgp-process-sentinel (_process _event) (save-excursion (let ((decrypted mew-pgp-result-sec-succ) (msg "")) @@ -694,12 +719,12 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") (interactive) (mew-pgp-encode-message 'pgp-encryption)) -(defun mew-pgp-sign-encrypt-message (&optional arg) +(defun mew-pgp-sign-encrypt-message (&optional _arg) "Sign then encrypt the entire draft with PGP. Input your passphrase." (interactive "P") (mew-pgp-encode-message 'pgp-signature-encryption)) -(defun mew-pgp-encrypt-sign-message (&optional arg) +(defun mew-pgp-encrypt-sign-message (&optional _arg) "Encrypt then sign the entire draft with PGP. Input your passphrase." (interactive "P") (mew-pgp-encode-message 'pgp-encryption-signature)) @@ -723,18 +748,21 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") '(("-sat" "+clearsig=on" "+language=en" "+batchmode=off") ("-at" "+clearsig=on" "+language=en" "+batchmode=off") ("-sat" "+clearsig=on" "+language=en" "+batchmode=off") - ("--clearsign" "--armor" "--textmode"))) + ("--clearsign" "--armor" "--textmode" "--status-fd" "1") + ("--clearsign" "--armor" "--textmode" "--status-fd" "1" "--command-fd" "0" "--no-tty" "--yes"))) (defconst mew-prog-old-pgpse-arg '(("-seat" "+language=en" "+batchmode=off") ("-eat" "+language=en" "+batchmode=off") ("-seat" "+language=en" "+batchmode=off") + ("--sign" "--encrypt" "--armor" "--textmode") ("--sign" "--encrypt" "--armor" "--textmode"))) (defconst mew-prog-old-pgpe-arg '(("-eat" "+language=en" "+batchmode=on" "+armorlines=0") ("-at" "+language=en" "+batchmode=on" "+armorlines=0") ("-eat" "+language=en" "+batchmode=on" "+armorlines=0") + ("--encrypt" "--armor" "--textmode" "--batch") ("--encrypt" "--armor" "--textmode" "--batch"))) (defun mew-old-pgp-encode (type &optional signer) @@ -1063,7 +1091,7 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG.") (defvar mew-pgp-tmp-file nil) -(defun mew-mime-pgp-keys (cache begin end &optional params) +(defun mew-mime-pgp-keys (_cache _begin _end &optional _params) "A function to add PGP keys in Application/PGP-Keys to your public keyring." (mew-elet @@ -1079,7 +1107,7 @@ public keyring." "To add this key to your pubring, type " "'\\\\[mew-summary-execute-external]'.\n"))) -(defun mew-mime-pgp-keys-ext (cache begin end &optional params) +(defun mew-mime-pgp-keys-ext (cache begin end &optional _params) "A function to add PGP keys to your public keyring." (if (not mew-pgp-ver) (message "PGP not found") @@ -1110,6 +1138,8 @@ public keyring." ((eq mew-pgp-ver mew-pgp-ver6) (insert "\"pgp -ke\" and \"pgp -ks\" to change them.\n")) ((eq mew-pgp-ver mew-pgp-verg) + (insert "\"gpg --edit-key\" to change them.\n")) + ((eq mew-pgp-ver mew-pgp-verg2) (insert "\"gpg --edit-key\" to change them.\n"))) (insert "If you do not know what TRUST and VALIDITY is,\n" "you should learn the web of trust system BEFORE\n" @@ -1187,7 +1217,7 @@ according to a URL in a field specified by 'mew-x-pgp-key-list'." (append mew-prog-pgpkey-args (list uri))))) (set-process-sentinel pro 'mew-pgp-fetch-process-sentinel))) -(defun mew-pgp-fetch-process-sentinel (process event) +(defun mew-pgp-fetch-process-sentinel (process _event) (message "PGP key fetching...done") (let ((buf (process-buffer process))) (with-current-buffer buf diff --git a/elpa/mew-20150813.2354/mew-pick.el b/elpa/mew-20161030.1807/mew-pick.el similarity index 95% rename from elpa/mew-20150813.2354/mew-pick.el rename to elpa/mew-20161030.1807/mew-pick.el index 6aecea09..74ff9a8c 100644 --- a/elpa/mew-20150813.2354/mew-pick.el +++ b/elpa/mew-20161030.1807/mew-pick.el @@ -632,11 +632,11 @@ If you want to change the stored keyword, execute this command with '\\[universa (defun mew-pick-native-text-mewl (token) (mew-pick-native-text "mew-pick-pattern-mewl-" token)) -(defun mew-pick-pattern-mewl-and (sym) "&") -(defun mew-pick-pattern-mewl-or (sym) "|") -(defun mew-pick-pattern-mewl-open (sym) "(") -(defun mew-pick-pattern-mewl-close (sym) ")") -(defun mew-pick-pattern-mewl-not (sym) "!") +(defun mew-pick-pattern-mewl-and (_sym) "&") +(defun mew-pick-pattern-mewl-or (_sym) "|") +(defun mew-pick-pattern-mewl-open (_sym) "(") +(defun mew-pick-pattern-mewl-close (_sym) ")") +(defun mew-pick-pattern-mewl-not (_sym) "!") (defun mew-pick-pattern-mewl-key (key) key) (defun mew-pick-pattern-mewl-kyvl (kyvl) (format "%s%s%s" (nth 1 kyvl) (nth 0 kyvl) (nth 2 kyvl))) @@ -656,11 +656,11 @@ If you want to change the stored keyword, execute this command with '\\[universa (defun mew-pick-native-text-est (token) (mew-pick-native-text "mew-pick-pattern-est-" token)) -(defun mew-pick-pattern-est-and (sym) "AND") -(defun mew-pick-pattern-est-or (sym) "OR") -(defun mew-pick-pattern-est-open (sym) (error "'(' is not supported")) -(defun mew-pick-pattern-est-close (sym) (error "')' is not supported")) -(defun mew-pick-pattern-est-not (sym) "ANDNOT") +(defun mew-pick-pattern-est-and (_sym) "AND") +(defun mew-pick-pattern-est-or (_sym) "OR") +(defun mew-pick-pattern-est-open (_sym) (error "'(' is not supported")) +(defun mew-pick-pattern-est-close (_sym) (error "')' is not supported")) +(defun mew-pick-pattern-est-not (_sym) "ANDNOT") (defun mew-pick-pattern-est-key (key) key) (defun mew-pick-pattern-est-kyvl (kyvl) (error "'%s' is not supported" kyvl)) @@ -713,11 +713,11 @@ If you want to change the stored keyword, execute this command with '\\[universa (defun mew-pick-native-text-google (token) (mew-pick-native-text "mew-pick-pattern-google-" token)) -(defun mew-pick-pattern-google-and (sym) "and") -(defun mew-pick-pattern-google-or (sym) "or") -(defun mew-pick-pattern-google-open (sym) (error "'(' is not supported")) -(defun mew-pick-pattern-google-close (sym) (error "')' is not supported")) -(defun mew-pick-pattern-google-not (sym) "-") +(defun mew-pick-pattern-google-and (_sym) "and") +(defun mew-pick-pattern-google-or (_sym) "or") +(defun mew-pick-pattern-google-open (_sym) (error "'(' is not supported")) +(defun mew-pick-pattern-google-close (_sym) (error "')' is not supported")) +(defun mew-pick-pattern-google-not (_sym) "-") (defun mew-pick-pattern-google-key (key) key) (defun mew-pick-pattern-google-kyvl (kyvl) (let ((op (nth 0 kyvl))) @@ -748,11 +748,11 @@ If you want to change the stored keyword, execute this command with '\\[universa (defun mew-pick-native-text-wds (token) (mew-pick-native-text "mew-pick-pattern-wds-" token)) -(defun mew-pick-pattern-wds-and (sym) "") -(defun mew-pick-pattern-wds-or (sym) "OR") -(defun mew-pick-pattern-wds-open (sym) "(") -(defun mew-pick-pattern-wds-close (sym) ")") -(defun mew-pick-pattern-wds-not (sym) "-") +(defun mew-pick-pattern-wds-and (_sym) "") +(defun mew-pick-pattern-wds-or (_sym) "OR") +(defun mew-pick-pattern-wds-open (_sym) "(") +(defun mew-pick-pattern-wds-close (_sym) ")") +(defun mew-pick-pattern-wds-not (_sym) "-") (defun mew-pick-pattern-wds-key (key) key) (defun mew-pick-pattern-wds-kyvl (kyvl) (let ((op (nth 0 kyvl))) @@ -774,11 +774,11 @@ If you want to change the stored keyword, execute this command with '\\[universa (defun mew-pick-native-text-spotlight (token) (mew-pick-native-text "mew-pick-pattern-spotlight-" token)) -(defun mew-pick-pattern-spotlight-and (sym) "&&") -(defun mew-pick-pattern-spotlight-or (sym) "||") -(defun mew-pick-pattern-spotlight-open (sym) "(") -(defun mew-pick-pattern-spotlight-close (sym) ")") -(defun mew-pick-pattern-spotlight-not (sym) (error "'!' is not supported")) +(defun mew-pick-pattern-spotlight-and (_sym) "&&") +(defun mew-pick-pattern-spotlight-or (_sym) "||") +(defun mew-pick-pattern-spotlight-open (_sym) "(") +(defun mew-pick-pattern-spotlight-close (_sym) ")") +(defun mew-pick-pattern-spotlight-not (_sym) (error "'!' is not supported")) (defun mew-pick-pattern-spotlight-key (key) (format "kMDItemTextContent == \"%s\"wc" key)) (defun mew-pick-pattern-spotlight-kyvl (kyvl) diff --git a/elpa/mew-20161030.1807/mew-pkg.el b/elpa/mew-20161030.1807/mew-pkg.el new file mode 100644 index 00000000..96af30a5 --- /dev/null +++ b/elpa/mew-20161030.1807/mew-pkg.el @@ -0,0 +1,4 @@ +(define-package "mew" "20161030.1807" "Messaging in the Emacs World" 'nil) +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/mew-20150813.2354/mew-pop.el b/elpa/mew-20161030.1807/mew-pop.el similarity index 99% rename from elpa/mew-20150813.2354/mew-pop.el rename to elpa/mew-20161030.1807/mew-pop.el index 025a0d74..9e2db7c4 100644 --- a/elpa/mew-20150813.2354/mew-pop.el +++ b/elpa/mew-20161030.1807/mew-pop.el @@ -493,7 +493,7 @@ (mew-pop-set-status pnm "quit") (mew-pop-process-send-string pro "QUIT")) -(defun mew-pop-command-noop (pro pnm) +(defun mew-pop-command-noop (_pro _pnm) ()) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/elpa/mew-20150813.2354/mew-refile.el b/elpa/mew-20161030.1807/mew-refile.el similarity index 99% rename from elpa/mew-20150813.2354/mew-refile.el rename to elpa/mew-20161030.1807/mew-refile.el index 4660b395..d32d56b7 100644 --- a/elpa/mew-20150813.2354/mew-refile.el +++ b/elpa/mew-20161030.1807/mew-refile.el @@ -99,10 +99,10 @@ ;;; Guess control functions ;;; -(defun mew-refile-ctrl-auto-boundary (guess auto) +(defun mew-refile-ctrl-auto-boundary (_guess auto) (if auto "stop")) -(defun mew-refile-ctrl-throw (guess auto) +(defun mew-refile-ctrl-throw (guess _auto) (if guess "stop")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -525,7 +525,7 @@ Return t if exists or created. Otherwise, return nil." (message "%s has been created" folder) t)))))))) ;; created -(defun mew-refile-decide-folders (buf msg cur-folders &optional auto exfld) +(defun mew-refile-decide-folders (buf _msg cur-folders &optional auto exfld) ;; This functions returns ;; ((folder1 folder2...) ;; (func1 guess11 guess12...) ;; for learning diff --git a/elpa/mew-20150813.2354/mew-scan.el b/elpa/mew-20161030.1807/mew-scan.el similarity index 100% rename from elpa/mew-20150813.2354/mew-scan.el rename to elpa/mew-20161030.1807/mew-scan.el diff --git a/elpa/mew-20150813.2354/mew-search.el b/elpa/mew-20161030.1807/mew-search.el similarity index 98% rename from elpa/mew-20150813.2354/mew-search.el rename to elpa/mew-20161030.1807/mew-search.el index e9ccd26e..63c3aad1 100644 --- a/elpa/mew-20150813.2354/mew-search.el +++ b/elpa/mew-20161030.1807/mew-search.el @@ -256,7 +256,7 @@ with a search method." (mew-alet (call-process prog nil t nil "-onlyin" path pattern))))) -(defun mew-search-with-spotlight (pattern folder &optional dummy) +(defun mew-search-with-spotlight (pattern folder &optional _dummy) (let ((path (mew-expand-folder folder)) msgs) (with-temp-buffer @@ -270,7 +270,7 @@ with a search method." (setq msgs (sort (mapcar 'string-to-number msgs) '<)) (mapcar 'number-to-string msgs)))) -(defun mew-search-virtual-with-spotlight (pattern flds &optional dummy) +(defun mew-search-virtual-with-spotlight (pattern flds &optional _dummy) (let* ((mpath (mew-expand-folder mew-folder-local)) (mail-regex (regexp-quote (file-name-as-directory mpath))) (regex (format "^%s%s\\([0-9]+\\)\\(%s\\)?$" mail-regex (file-name-as-directory "\\(.*\\)") mew-suffix)) @@ -351,7 +351,7 @@ with a search method." (mew-alet (call-process prog nil t nil "-m" "-p" path "-s" "-q" pattern))))) -(defun mew-search-with-google (pattern folder &optional dummy) +(defun mew-search-with-google (pattern folder &optional _dummy) (let* ((path (mew-expand-folder folder)) msgs) (with-temp-buffer @@ -366,7 +366,7 @@ with a search method." (mapcar 'number-to-string msgs)))) ;; xxx flds are not used at this moment -(defun mew-search-virtual-with-google (pattern flds &optional dummy) +(defun mew-search-virtual-with-google (pattern _flds &optional _dummy) (let* ((path (mew-expand-folder mew-folder-local)) (mail-regex (regexp-quote (file-name-as-directory path))) (regex (concat "^" mail-regex "\\(.*\\)/" "\\([0-9]+\\)")) @@ -432,7 +432,7 @@ with a search method." (mew-alet (call-process prog nil t nil "-e" mew-suffix "-p" path "-s" pattern))))) -(defun mew-search-with-wds (pattern folder &optional dummy) +(defun mew-search-with-wds (pattern folder &optional _dummy) (let* ((path (mew-expand-folder folder)) msgs) (with-temp-buffer @@ -447,7 +447,7 @@ with a search method." (mapcar 'number-to-string msgs)))) ;; xxx flds are not used at this moment -(defun mew-search-virtual-with-wds (pattern flds &optional dummy) +(defun mew-search-virtual-with-wds (pattern _flds &optional _dummy) (let* ((path (mew-expand-folder mew-folder-local)) (mail-regex (regexp-quote (file-name-as-directory path))) (regex (concat "^" mail-regex "\\(.*\\)/" "\\([0-9]+\\)")) @@ -470,7 +470,7 @@ with a search method." (write-region (point-min) (point-max) file nil 'no-msg)) (list file rttl))) -(defun mew-wds-index-folder (folder) +(defun mew-wds-index-folder (_folder) "Make WDS index for all folders." (mew-wds-index-all)) @@ -616,7 +616,7 @@ with a search method." (set-process-filter pro 'mew-est-index-filter) (set-process-sentinel pro 'mew-est-index-sentinel)))) -(defun mew-est-index-filter (process string) +(defun mew-est-index-filter (_process string) (save-excursion (cond ((string-match "exists" string) @@ -628,7 +628,7 @@ with a search method." ((string-match "new messages\.\.\.done" string) (message "Hyper Estraier indexing ...done"))))) -(defun mew-est-index-sentinel (process event) +(defun mew-est-index-sentinel (_process _event) (save-excursion )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -769,7 +769,7 @@ from scratch." (goto-char (point-max)) (insert string)))) -(defun mew-summary-make-id-index-sentinel (process event) +(defun mew-summary-make-id-index-sentinel (process _event) (let ((buf (process-buffer process))) (with-current-buffer buf (goto-char (point-max)) diff --git a/elpa/mew-20150813.2354/mew-smime.el b/elpa/mew-20161030.1807/mew-smime.el similarity index 99% rename from elpa/mew-20150813.2354/mew-smime.el rename to elpa/mew-20161030.1807/mew-smime.el index ba5760bb..c720ad44 100644 --- a/elpa/mew-20150813.2354/mew-smime.el +++ b/elpa/mew-20161030.1807/mew-smime.el @@ -122,7 +122,7 @@ (setq mew-smime-failure (cdr (assoc (mew-match-string 1 string) mew-smime-inv-recp-alist))) (setq mew-smime-failure (concat mew-smime-failure " for " (mew-match-string 2 string))))))) -(defun mew-smime-process-sentinel (process event) +(defun mew-smime-process-sentinel (_process _event) (save-excursion (let ((decrypted mew-smime-result-sec-succ) (msg "")) @@ -221,12 +221,12 @@ (interactive) (mew-smime-encode-message 'smime-encryption)) -(defun mew-smime-sign-encrypt-message (&optional arg) +(defun mew-smime-sign-encrypt-message (&optional _arg) "Sign then encrypt the entire draft with S/MIME. Input your passphrase." (interactive "P") (mew-smime-encode-message 'smime-signature-encryption)) -(defun mew-smime-encrypt-sign-message (&optional arg) +(defun mew-smime-encrypt-sign-message (&optional _arg) "Encrypt then sign the entire draft with S/MIME. Input your passphrase." (interactive "P") (mew-smime-encode-message 'smime-encryption-signature)) diff --git a/elpa/mew-20150813.2354/mew-smtp.el b/elpa/mew-20161030.1807/mew-smtp.el similarity index 99% rename from elpa/mew-20150813.2354/mew-smtp.el rename to elpa/mew-20161030.1807/mew-smtp.el index 58a05e3b..2e44b6f8 100644 --- a/elpa/mew-20150813.2354/mew-smtp.el +++ b/elpa/mew-20161030.1807/mew-smtp.el @@ -236,7 +236,7 @@ (mew-smtp-set-status pnm "quit") (mew-smtp-process-send-string pro "QUIT"))) -(defun mew-smtp-command-noop (pro pnm) +(defun mew-smtp-command-noop (_pro _pnm) ()) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -599,7 +599,7 @@ (t (mew-smtp-sentinel2 process event)))))) -(defun mew-smtp-sentinel2 (process event) +(defun mew-smtp-sentinel2 (process _event) (let* ((pnm (process-name process)) (buf (process-buffer process)) (qfld (mew-smtp-get-qfld pnm)) diff --git a/elpa/mew-20150813.2354/mew-sort.el b/elpa/mew-20161030.1807/mew-sort.el similarity index 97% rename from elpa/mew-20150813.2354/mew-sort.el rename to elpa/mew-20161030.1807/mew-sort.el index 3ee3a59d..391476c1 100644 --- a/elpa/mew-20150813.2354/mew-sort.el +++ b/elpa/mew-20161030.1807/mew-sort.el @@ -21,13 +21,13 @@ ("num" mew-sort-key-num mew-sort-number) ("postnum" mew-sort-key-postnum mew-sort-number))) -(defun mew-sort-key-text (key folder msg) +(defun mew-sort-key-text (key _folder _msg) (mew-subject-simplify key nil 'no-replace)) -(defun mew-sort-key-ml (key folder msg) +(defun mew-sort-key-ml (key _folder _msg) (mew-subject-simplify2 key)) -(defun mew-sort-key-mlnum (key folder msg) +(defun mew-sort-key-mlnum (key _folder _msg) (let (mlname mlnum) (cond ((string-match "^\\([[(][^])]+\\)[: ]+\\([0-9]+\\)[])]" key) @@ -47,10 +47,10 @@ (mew-time-ctz-to-sortkey time)) (mew-time-rfc-to-sortkey key))) -(defun mew-sort-key-num (key folder msg) +(defun mew-sort-key-num (key _folder _msg) (string-to-number key)) -(defun mew-sort-key-postnum (key folder msg) +(defun mew-sort-key-postnum (key _folder _msg) (if (string-match "[0-9]+$" key) (string-to-number (match-string 0 key)) (string-to-number key))) @@ -90,7 +90,7 @@ (mew-refile-change src dst) (mew-summary-sort-move src dst pos lastp)) -(defun mew-summary-sort-move-for-selection (src dst pos &optional lastp) +(defun mew-summary-sort-move-for-selection (src _dst pos &optional lastp) (mew-summary-sort-move src nil pos lastp)) ;; If not found, returns nil. @@ -146,7 +146,7 @@ (delete-region beg end) beg)))))))) -(defun mew-summary-sort-move-for-debug (src dst pos &optional lastp) +(defun mew-summary-sort-move-for-debug (src dst _pos &optional _lastp) (mew-elet (insert (format "move %s to %s\n" src dst)))) diff --git a/elpa/mew-20150813.2354/mew-ssh.el b/elpa/mew-20161030.1807/mew-ssh.el similarity index 98% rename from elpa/mew-20150813.2354/mew-ssh.el rename to elpa/mew-20161030.1807/mew-ssh.el index 3a2359a0..7aa3adc3 100644 --- a/elpa/mew-20150813.2354/mew-ssh.el +++ b/elpa/mew-20161030.1807/mew-ssh.el @@ -104,7 +104,7 @@ after ':'." (message "Connecting to the SSH server...") (setq pro nil) (catch 'loop - (dotimes (i N) + (dotimes (_i N) ;; prevent byte-compile warning (setq name (mew-ssh-info-name sshserver server remoteport localport)) (setq pro (apply 'start-process name nil @@ -191,7 +191,7 @@ after ':'." (mew-ssh-set-status pnm 'bound) (message "Connecting to the SSH server...done")))))) -(defun mew-ssh-sentinel (process event) +(defun mew-ssh-sentinel (process _event) (let ((pnm (process-name process))) (save-excursion (unless (mew-ssh-get-status pnm) diff --git a/elpa/mew-20150813.2354/mew-ssl.el b/elpa/mew-20161030.1807/mew-ssl.el similarity index 98% rename from elpa/mew-20150813.2354/mew-ssl.el rename to elpa/mew-20161030.1807/mew-ssl.el index d6d8380a..a181b530 100644 --- a/elpa/mew-20150813.2354/mew-ssl.el +++ b/elpa/mew-20161030.1807/mew-ssl.el @@ -155,7 +155,7 @@ A local port number can be obtained the process name after ':'. " (message "Creating an SSL/TLS connection...") (setq pro nil) (catch 'loop - (dotimes (i N) + (dotimes (_i N) ;; prevent byte-compile warning (setq name (mew-ssl-info-name server remoteport localport)) (setq opts (mew-ssl-options case server remoteport localport tls)) (setq pro (apply 'start-process name nil mew-prog-ssl opts)) @@ -248,11 +248,11 @@ A local port number can be obtained the process name after ':'. " ((string-match "verify failed" string) (mew-ssl-set-status pnm 'verify-failure)))))) -(defun mew-ssl-filter3 (process string) +(defun mew-ssl-filter3 (_process string) (save-excursion (mew-ssl-debug "SSL/TLS: " string))) -(defun mew-ssl-sentinel (process event) +(defun mew-ssl-sentinel (process _event) (let* ((pnm (process-name process)) (file (mew-ssl-get-file pnm))) (save-excursion diff --git a/elpa/mew-20150813.2354/mew-summary.el b/elpa/mew-20161030.1807/mew-summary.el similarity index 100% rename from elpa/mew-20150813.2354/mew-summary.el rename to elpa/mew-20161030.1807/mew-summary.el diff --git a/elpa/mew-20150813.2354/mew-summary2.el b/elpa/mew-20161030.1807/mew-summary2.el similarity index 100% rename from elpa/mew-20150813.2354/mew-summary2.el rename to elpa/mew-20161030.1807/mew-summary2.el diff --git a/elpa/mew-20150813.2354/mew-summary3.el b/elpa/mew-20161030.1807/mew-summary3.el similarity index 100% rename from elpa/mew-20150813.2354/mew-summary3.el rename to elpa/mew-20161030.1807/mew-summary3.el diff --git a/elpa/mew-20150813.2354/mew-summary4.el b/elpa/mew-20161030.1807/mew-summary4.el similarity index 100% rename from elpa/mew-20150813.2354/mew-summary4.el rename to elpa/mew-20161030.1807/mew-summary4.el diff --git a/elpa/mew-20150813.2354/mew-syntax.el b/elpa/mew-20161030.1807/mew-syntax.el similarity index 99% rename from elpa/mew-20150813.2354/mew-syntax.el rename to elpa/mew-20161030.1807/mew-syntax.el index 621af5d9..9a6ea2f1 100644 --- a/elpa/mew-20150813.2354/mew-syntax.el +++ b/elpa/mew-20161030.1807/mew-syntax.el @@ -590,7 +590,7 @@ system." (put-text-property beg (1- (point)) 'mouse-face mew-highlight-mouse-line-face)))) -(defun mew-decode-syntax-print (sumbuf syntax form icon) +(defun mew-decode-syntax-print (sumbuf syntax form _icon) (let* ((stx (mew-syntax-get-part syntax))) (with-current-buffer sumbuf (when (mew-syntax-multipart-p stx) @@ -665,7 +665,7 @@ system." (setq part (number-to-string num))) (mew-syntax-format mew-encode-syntax-dot part dec)))) -(defun mew-syntax-singlepart (syntax dec part func first) +(defun mew-syntax-singlepart (syntax dec part _func first) ;; part is valid only when called by mew-syntax-multipart. (let ((ct (mew-syntax-get-value (mew-syntax-get-ct syntax) 'cap))) ;; see also mew-mime-message/rfc822. diff --git a/elpa/mew-20150813.2354/mew-thread.el b/elpa/mew-20161030.1807/mew-thread.el similarity index 99% rename from elpa/mew-20150813.2354/mew-thread.el rename to elpa/mew-20161030.1807/mew-thread.el index 603e658f..7e575cb3 100644 --- a/elpa/mew-20150813.2354/mew-thread.el +++ b/elpa/mew-20161030.1807/mew-thread.el @@ -1006,8 +1006,7 @@ If the children are hidden, they will appear." The thread/message is specified with the mark(\\[set-mark-command])." (interactive) (mew-summary-msg - (let* ((zmacs-regions nil) - (pos (marker-position (mark-marker)))) + (let* ((pos (marker-position (mark-marker)))) (cond ((null pos) (message "No marker")) diff --git a/elpa/mew-20150813.2354/mew-unix.el b/elpa/mew-20161030.1807/mew-unix.el similarity index 98% rename from elpa/mew-20150813.2354/mew-unix.el rename to elpa/mew-20161030.1807/mew-unix.el index 7b5ecd2a..5d1a3302 100644 --- a/elpa/mew-20150813.2354/mew-unix.el +++ b/elpa/mew-20161030.1807/mew-unix.el @@ -1,10 +1,51 @@ -;;; mew-unix.el -- MIME content type for UNIX +;;; mew-unix.el -- Settings for Mew on Unix ;; Author: Kazu Yamamoto ;; Created: Dec 4, 1997 ;;; Code: +;;; +;;; MIME setting +;;; + +(defvar mew-prog-plain 'mew-mime-text/plain) +(defvar mew-prog-html '(mew-mime-text/html mew-mime-text/html-ext)) +(defvar mew-prog-xml '(mew-mime-text/xml mew-mime-text/xml-ext)) +(defvar mew-prog-patch '(mew-mime-text/plain mew-mime-text/patch-ext)) +(defvar mew-prog-enriched 'mew-mime-text/enriched) +(defvar mew-prog-text 'mew-mime-text/plain) +(defvar mew-prog-audio + `(,shell-file-name (,shell-command-switch "cat - > /dev/audio") nil)) +(defvar mew-prog-audio2 + `(,shell-file-name (,shell-command-switch "cat < /dev/audio") nil)) +(defvar mew-prog-image '(mew-mime-image/* mew-mime-image/*-ext)) +(defvar mew-prog-iges nil) +(defvar mew-prog-vrml nil) +(defvar mew-prog-mesh nil) +(defvar mew-prog-video '("xine" ("--auto-play") t)) +(defvar mew-prog-rfc822 'mew-mime-message/rfc822) +(defvar mew-prog-rfc822-headers 'mew-mime-text/rfc822-headers) +(defvar mew-prog-external-body '(mew-mime-external-body mew-mime-external-body-ext)) +(defvar mew-prog-delivery-status 'mew-mime-text/plain) + +(defvar mew-prog-application/pdf "pdftotext") +(defvar mew-prog-pdf-ext '("xpdf" ("-geometry" "+0+0") t)) +(defvar mew-prog-pdf `(mew-mime-application/pdf ,mew-prog-pdf-ext)) + +(defvar mew-prog-postscript '("gv" ("-geometry" "+0+0") t)) +(defvar mew-prog-oasys nil) +(defvar mew-prog-octet-stream 'mew-mime-application/octet-stream) +(defvar mew-prog-pgp-keys '(mew-mime-pgp-keys mew-mime-pgp-keys-ext)) + +(defvar mew-prog-application/rtf "rtf2html") +(defvar mew-prog-rtf '(mew-mime-application/rtf + mew-mime-application/rtf-ext)) + +(defvar mew-prog-xml2 '(mew-mime-application/xml + mew-mime-application/xml-ext)) +(defvar mew-prog-unzip 'mew-mime-application/octet-stream) + ;;; ;;; Text/Html, Application/Xml ;;; @@ -41,52 +82,6 @@ (defvar mew-prog-image/* 'mew-mime-image/*) (defvar mew-prog-image/*-ext '("display" ("-geometry" "+0+0"))) -;;; -;;; MIME setting -;;; - -(defvar mew-prog-plain 'mew-mime-text/plain) -(defvar mew-prog-html '(mew-mime-text/html mew-mime-text/html-ext)) -(defvar mew-prog-xml '(mew-mime-text/xml mew-mime-text/xml-ext)) -(defvar mew-prog-patch '(mew-mime-text/plain mew-mime-text/patch-ext)) -(defvar mew-prog-enriched 'mew-mime-text/enriched) -(defvar mew-prog-text 'mew-mime-text/plain) -(defvar mew-prog-audio - `(,shell-file-name (,shell-command-switch "cat - > /dev/audio") nil)) -(defvar mew-prog-audio2 - `(,shell-file-name (,shell-command-switch "cat < /dev/audio") nil)) -(defvar mew-prog-image '(mew-mime-image/* mew-mime-image/*-ext)) -(defvar mew-prog-iges nil) -(defvar mew-prog-vrml nil) -(defvar mew-prog-mesh nil) -(defvar mew-prog-video '("xine" ("--auto-play") t)) -(defvar mew-prog-rfc822 'mew-mime-message/rfc822) -(defvar mew-prog-rfc822-headers 'mew-mime-text/rfc822-headers) -(defvar mew-prog-external-body '(mew-mime-external-body mew-mime-external-body-ext)) -(defvar mew-prog-delivery-status 'mew-mime-text/plain) -(defvar mew-prog-postscript '("gv" ("-geometry" "+0+0") t)) -(defvar mew-prog-xml2 '(mew-mime-application/xml - mew-mime-application/xml-ext)) -(defvar mew-prog-pgp-keys '(mew-mime-pgp-keys mew-mime-pgp-keys-ext)) -(defvar mew-prog-oasys nil) -(defvar mew-prog-octet-stream 'mew-mime-application/octet-stream) - -(defvar mew-prog-visio 'mew-mime-application/octet-stream) -(defvar mew-prog-mstnef '(mew-mime-application-ms-tnef - mew-mime-application-ms-tnef-ext)) -(defvar mew-prog-unzip 'mew-mime-application/octet-stream) - -;;; -;;; -;;; - -(defvar mew-prog-application/pdf "pdftotext") -(defvar mew-prog-pdf-ext '("xpdf" ("-geometry" "+0+0") t)) -(defvar mew-prog-pdf `(mew-mime-application/pdf ,mew-prog-pdf-ext)) - -(defvar mew-prog-application/rtf "rtf2html") -(defvar mew-prog-rtf '(mew-mime-application/rtf - mew-mime-application/rtf-ext)) ;;; ;;; Office @@ -98,7 +93,6 @@ (defvar mew-prog-msword-ext mew-prog-ooffice) (defvar mew-prog-msword `(mew-mime-application/msword ,mew-prog-msword-ext)) - (defvar mew-prog-application/msexcel "xlhtml") (defvar mew-prog-msexcel-ext mew-prog-ooffice) (defvar mew-prog-msexcel `(mew-mime-application/msexcel ,mew-prog-msexcel-ext)) @@ -107,6 +101,10 @@ (defvar mew-prog-mspowerpoint-ext mew-prog-ooffice) (defvar mew-prog-mspowerpoint `(mew-mime-application/mspowerpoint ,mew-prog-mspowerpoint-ext)) +(defvar mew-prog-visio 'mew-mime-application/octet-stream) +(defvar mew-prog-mstnef '(mew-mime-application-ms-tnef + mew-mime-application-ms-tnef-ext)) + ;;; ;;; Misc ;;; diff --git a/elpa/mew-20150813.2354/mew-vars.el b/elpa/mew-20161030.1807/mew-vars.el similarity index 100% rename from elpa/mew-20150813.2354/mew-vars.el rename to elpa/mew-20161030.1807/mew-vars.el diff --git a/elpa/mew-20150813.2354/mew-vars2.el b/elpa/mew-20161030.1807/mew-vars2.el similarity index 100% rename from elpa/mew-20150813.2354/mew-vars2.el rename to elpa/mew-20161030.1807/mew-vars2.el diff --git a/elpa/mew-20150813.2354/mew-vars3.el b/elpa/mew-20161030.1807/mew-vars3.el similarity index 100% rename from elpa/mew-20150813.2354/mew-vars3.el rename to elpa/mew-20161030.1807/mew-vars3.el diff --git a/elpa/mew-20150813.2354/mew-varsx.el b/elpa/mew-20161030.1807/mew-varsx.el similarity index 100% rename from elpa/mew-20150813.2354/mew-varsx.el rename to elpa/mew-20161030.1807/mew-varsx.el diff --git a/elpa/mew-20150813.2354/mew-virtual.el b/elpa/mew-20161030.1807/mew-virtual.el similarity index 98% rename from elpa/mew-20150813.2354/mew-virtual.el rename to elpa/mew-20161030.1807/mew-virtual.el index adc7f6da..da0c794c 100644 --- a/elpa/mew-20150813.2354/mew-virtual.el +++ b/elpa/mew-20161030.1807/mew-virtual.el @@ -103,7 +103,7 @@ (message "Picking messages in %s..." pfolder) (mew-summary-selection-by-pick-with-mewl pattern pfolder msgs rfolder lra)))))))))) -(defun mew-summary-selection-by-pick-with-mewl (pattern folder src-msgs rfolder lra) +(defun mew-summary-selection-by-pick-with-mewl (pattern _folder src-msgs rfolder lra) "Create selection with 'mewl'" (let ((opts (list "-a" "-p" pattern "-b" mew-mail-path)) (range (mew-summary-pick-range src-msgs))) @@ -113,7 +113,7 @@ (setq opts (nconc opts (list rfolder)))) (mew-local-retrieve 'vir opts nil lra))) -(defun mew-summary-selection-by-pick-with-grep (prog opts pattern folder msgs rfolder lra) +(defun mew-summary-selection-by-pick-with-grep (prog opts pattern _folder msgs rfolder lra) "Create selection with 'grep'" (interactive) (let ((file-rttl (mew-summary-selection-by-pick-with-grep1 prog opts pattern rfolder msgs)) diff --git a/elpa/mew-20150813.2354/mew-win32.el b/elpa/mew-20161030.1807/mew-win32.el similarity index 97% rename from elpa/mew-20150813.2354/mew-win32.el rename to elpa/mew-20161030.1807/mew-win32.el index 69e891f2..4d33cd42 100644 --- a/elpa/mew-20150813.2354/mew-win32.el +++ b/elpa/mew-20161030.1807/mew-win32.el @@ -15,7 +15,7 @@ ;;; for NTEmacs User ;; -;; put mw32script.el(in Meadow's archive) into load-path. +;; put mw32script.el (in Meadow's archive) into load-path. ;; ;; @@ -37,21 +37,6 @@ ;; (general-process-argument-editing-function x nil t))) ;; (setq mew-print-function 'mew-w32-print-buffer) -;; Win32 programs. -(defvar mew-w32-exec "fiber.exe") -(defvar mew-w32-prog-print "notepad.exe") -(defvar mew-w32-prog-print-arg nil) - -(defvar mew-default-external-program mew-w32-exec) - -(defvar mew-w32-cs-print nil) - -(setq mew-which-exec-suffixes (if (and (boundp 'exec-suffixes) - exec-suffixes) - exec-suffixes - '(".exe" ".com" ".bat" ".cmd" ""))) - -(setq mew-delete-temp-file nil) ;; Emacs version dependent variables. (cond @@ -111,7 +96,20 @@ (mew-delete-file tempfile))) -;; MIME setting +;;; +;;; MIME setting +;;; + +(defvar mew-w32-exec "fiber.exe") +(defvar mew-default-external-program mew-w32-exec) +(setq mew-which-exec-suffixes (if (and (boundp 'exec-suffixes) + exec-suffixes) + exec-suffixes + '(".exe" ".com" ".bat" ".cmd" ""))) + +(defvar mew-w32-prog-print "notepad.exe") +(defvar mew-w32-prog-print-arg nil) +(defvar mew-w32-cs-print nil) (defvar mew-prog-plain 'mew-mime-text/plain) (defvar mew-prog-html '(mew-mime-text/html mew-mime-text/html-ext)) @@ -132,23 +130,22 @@ (defvar mew-prog-delivery-status 'mew-mime-text/plain) (defvar mew-prog-postscript mew-w32-exec) (defvar mew-prog-pgp-keys '(mew-mime-pgp-keys mew-mime-pgp-keys-ext)) + (defvar mew-prog-application/pdf "pdftotext") (defvar mew-prog-pdf-ext mew-w32-exec) (defvar mew-prog-pdf `(mew-mime-application/pdf ,mew-prog-pdf-ext)) + +(defvar mew-prog-application/rtf nil) + (defvar mew-prog-xml2 '(mew-mime-application/xml mew-mime-application/xml-ext)) (defvar mew-prog-oasys mew-w32-exec) (defvar mew-prog-octet-stream mew-w32-exec) -(defvar mew-prog-msword mew-w32-exec) -(defvar mew-prog-msexcel mew-w32-exec) -(defvar mew-prog-mspowerpoint mew-w32-exec) -(defvar mew-prog-visio mew-w32-exec) -(defvar mew-prog-ooffice mew-w32-exec) (defvar mew-prog-rtf mew-w32-exec) (defvar mew-prog-unzip mew-w32-exec) ;;; -;;; Text/Html, Application/Xml, Image +;;; Text/Html, Application/Xml ;;; (defvar mew-format-html "%s.htm") @@ -171,13 +168,36 @@ (defvar mew-prog-application/xml nil) (defvar mew-prog-application/xml-ext mew-w32-exec) + +;;; +;;; Image +;;; + (defvar mew-prog-image/* 'mew-mime-image/*) (defvar mew-prog-image/*-ext mew-w32-exec) + +;;; +;;; Office +;;; + +(defvar mew-prog-ooffice mew-w32-exec) + (defvar mew-prog-application/msword nil) +(defvar mew-prog-msword mew-w32-exec) + (defvar mew-prog-application/msexcel nil) +(defvar mew-prog-msexcel mew-w32-exec) + (defvar mew-prog-application/mspowerpoint nil) -(defvar mew-prog-application/rtf nil) +(defvar mew-prog-mspowerpoint mew-w32-exec) + +(defvar mew-prog-visio mew-w32-exec) + + +;;; +;;; Misc +;;; (setq mew-cs-database-for-arg '((iso-2022-jp . shift_jis-unix) @@ -209,6 +229,10 @@ (t (mew-attach-copy from to)))))))) +;; + +(setq mew-delete-temp-file nil) + (provide 'mew-win32) ;;; Copyright Notice: diff --git a/elpa/mew-20150813.2354/mew.el b/elpa/mew-20161030.1807/mew.el similarity index 99% rename from elpa/mew-20150813.2354/mew.el rename to elpa/mew-20161030.1807/mew.el index 8ad8b65f..76106694 100644 --- a/elpa/mew-20150813.2354/mew.el +++ b/elpa/mew-20161030.1807/mew.el @@ -97,10 +97,10 @@ function." (mew-summary-send to cc subject)) ;;;###autoload -(defun mew-user-agent-compose (&optional to subject other-headers continue - switch-function yank-action - send-actions - &rest dummy) +(defun mew-user-agent-compose (&optional to subject other-headers _continue + switch-function _yank-action + _send-actions + &rest _dummy) "Set up message composition draft with Mew. This is 'mail-user-agent' entry point to Mew. diff --git a/elpa/mew-20150813.2354/mew.info b/elpa/mew-20161030.1807/mew.info similarity index 100% rename from elpa/mew-20150813.2354/mew.info rename to elpa/mew-20161030.1807/mew.info diff --git a/elpa/mew-20150813.2354/mew.info-1 b/elpa/mew-20161030.1807/mew.info-1 similarity index 100% rename from elpa/mew-20150813.2354/mew.info-1 rename to elpa/mew-20161030.1807/mew.info-1 diff --git a/elpa/mew-20150813.2354/mew.info-2 b/elpa/mew-20161030.1807/mew.info-2 similarity index 100% rename from elpa/mew-20150813.2354/mew.info-2 rename to elpa/mew-20161030.1807/mew.info-2 diff --git a/elpa/mew-20150813.2354/mew.info-3 b/elpa/mew-20161030.1807/mew.info-3 similarity index 100% rename from elpa/mew-20150813.2354/mew.info-3 rename to elpa/mew-20161030.1807/mew.info-3 diff --git a/elpa/mew-20150813.2354/mew.info-4 b/elpa/mew-20161030.1807/mew.info-4 similarity index 100% rename from elpa/mew-20150813.2354/mew.info-4 rename to elpa/mew-20161030.1807/mew.info-4 diff --git a/elpa/mew-20150813.2354/mew.info-5 b/elpa/mew-20161030.1807/mew.info-5 similarity index 100% rename from elpa/mew-20150813.2354/mew.info-5 rename to elpa/mew-20161030.1807/mew.info-5 diff --git a/elpa/mew-20150813.2354/mew.ja.info b/elpa/mew-20161030.1807/mew.ja.info similarity index 100% rename from elpa/mew-20150813.2354/mew.ja.info rename to elpa/mew-20161030.1807/mew.ja.info diff --git a/elpa/mew-20150813.2354/mew.ja.info-1 b/elpa/mew-20161030.1807/mew.ja.info-1 similarity index 100% rename from elpa/mew-20150813.2354/mew.ja.info-1 rename to elpa/mew-20161030.1807/mew.ja.info-1 diff --git a/elpa/mew-20150813.2354/mew.ja.info-2 b/elpa/mew-20161030.1807/mew.ja.info-2 similarity index 100% rename from elpa/mew-20150813.2354/mew.ja.info-2 rename to elpa/mew-20161030.1807/mew.ja.info-2 diff --git a/elpa/mew-20150813.2354/mew.ja.info-3 b/elpa/mew-20161030.1807/mew.ja.info-3 similarity index 100% rename from elpa/mew-20150813.2354/mew.ja.info-3 rename to elpa/mew-20161030.1807/mew.ja.info-3 -- 2.47.3