From 4a68d4b82c2218a354feb0c21926742153bd1eee Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sun, 26 Apr 2026 20:01:20 +0200 Subject: [PATCH] update mew --- elpa/mew-20260425.817/README-elpa | 4 + .../dir | 0 .../etc/Mew.img | 0 .../etc/Mew.png | Bin .../etc/Mew.xbm | 0 .../etc/Mew.xpm | 0 .../etc/mew-Audio.xpm | 2 +- .../etc/mew-Blank.xpm | 2 +- .../etc/mew-External.xpm | 2 +- .../etc/mew-Folder.xpm | 2 +- .../etc/mew-Image.xpm | 2 +- .../etc/mew-Octet-Stream.xpm | 2 +- .../etc/mew-Postscript.xpm | 2 +- .../etc/mew-Rfc822.xpm | 2 +- .../etc/mew-Text.xpm | 2 +- .../etc/mew-Unknown.xpm | 2 +- .../etc/mew-Video.xpm | 2 +- .../etc/mew-attach.xpm | 2 +- .../etc/mew-cite.xpm | 2 +- .../etc/mew-forward.xpm | 2 +- .../etc/mew-inc.xpm | 2 +- .../etc/mew-lock.xpm | 2 +- .../etc/mew-next.xpm | 2 +- .../etc/mew-pgp-enc.xpm | 2 +- .../etc/mew-pgp-sigenc.xpm | 2 +- .../etc/mew-pgp-sign.xpm | 2 +- .../etc/mew-prev.xpm | 2 +- .../etc/mew-queue.xpm | 2 +- .../etc/mew-refile.xpm | 2 +- .../etc/mew-reply.xpm | 2 +- .../etc/mew-send.xpm | 2 +- .../etc/mew-sep.xpm | 2 +- .../etc/mew-show.xpm | 2 +- .../etc/mew-write.xpm | 2 +- .../etc/mew-yank.xpm | 2 +- .../mew-addrbook.el | 0 .../mew-attach.el | 4 + .../mew-auth.el | 0 .../mew-autoloads.el | 27 +- .../mew-blvs.el | 0 .../mew-bq.el | 14 +- .../mew-cache.el | 0 .../mew-complete.el | 0 .../mew-config.el | 0 .../mew-const.el | 1 - .../mew-darwin.el | 0 .../mew-decode.el | 7 +- .../mew-demo.el | 0 .../mew-draft.el | 6 +- .../mew-edit.el | 0 .../mew-encode.el | 22 +- .../mew-env.el | 0 .../mew-env0.el | 0 .../mew-exec.el | 0 .../mew-ext.el | 8 +- .../mew-fib.el | 0 .../mew-func.el | 3 +- .../mew-gemacs.el | 4 +- elpa/mew-20260425.817/mew-gnutls.el | 285 ++++++++++++++++ .../mew-header.el | 0 .../mew-highlight.el | 10 +- .../mew-imap.el | 82 +++-- .../mew-imap2.el | 56 ++- .../mew-key.el | 0 .../mew-lang-jp.el | 0 .../mew-lang-kr.el | 0 .../mew-lang-latin.el | 2 +- .../mew-local.el | 3 +- .../mew-mark.el | 2 +- .../mew-message.el | 0 .../mew-mime.el | 4 +- .../mew-minibuf.el | 0 .../mew-mule.el | 0 .../mew-mule3.el | 0 .../mew-net.el | 21 +- .../mew-nntp.el | 65 ++-- .../mew-nntp2.el | 28 +- .../mew-oauth2.el | 8 +- .../mew-passwd.el | 93 +++-- .../mew-pgp.el | 6 +- .../mew-pick.el | 0 .../mew-pkg.el | 6 +- .../mew-pop.el | 75 ++-- .../mew-refile.el | 0 .../mew-scan.el | 17 +- .../mew-search.el | 3 +- .../mew-smime.el | 2 +- .../mew-smtp.el | 323 +++--------------- .../mew-sort.el | 12 +- .../mew-ssh.el | 0 .../mew-stunnel.el} | 258 ++++++-------- .../mew-summary.el | 0 .../mew-summary2.el | 2 +- .../mew-summary3.el | 5 +- .../mew-summary4.el | 0 .../mew-syntax.el | 2 +- .../mew-thread.el | 0 .../mew-unix.el | 0 .../mew-vars.el | 30 +- .../mew-vars2.el | 2 +- .../mew-vars3.el | 0 .../mew-varsx.el | 0 .../mew-virtual.el | 4 +- .../mew-win32.el | 0 .../mew.el | 15 +- .../mew.info | 282 ++++++++------- .../mew.ja.info | 112 +++--- 107 files changed, 996 insertions(+), 977 deletions(-) create mode 100644 elpa/mew-20260425.817/README-elpa rename elpa/{mew-20251127.544 => mew-20260425.817}/dir (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/Mew.img (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/Mew.png (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/Mew.xbm (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/Mew.xpm (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Audio.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Blank.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-External.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Folder.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Image.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Octet-Stream.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Postscript.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Rfc822.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Text.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Unknown.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-Video.xpm (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-attach.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-cite.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-forward.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-inc.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-lock.xpm (91%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-next.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-pgp-enc.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-pgp-sigenc.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-pgp-sign.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-prev.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-queue.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-refile.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-reply.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-send.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-sep.xpm (85%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-show.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-write.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/etc/mew-yank.xpm (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-addrbook.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-attach.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-auth.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-autoloads.el (92%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-blvs.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-bq.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-cache.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-complete.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-config.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-const.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-darwin.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-decode.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-demo.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-draft.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-edit.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-encode.el (98%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-env.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-env0.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-exec.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-ext.el (98%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-fib.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-func.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-gemacs.el (99%) create mode 100644 elpa/mew-20260425.817/mew-gnutls.el rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-header.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-highlight.el (98%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-imap.el (97%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-imap2.el (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-key.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-lang-jp.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-lang-kr.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-lang-latin.el (97%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-local.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-mark.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-message.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-mime.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-minibuf.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-mule.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-mule3.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-net.el (98%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-nntp.el (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-nntp2.el (95%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-oauth2.el (98%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-passwd.el (86%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-pgp.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-pick.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-pkg.el (53%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-pop.el (94%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-refile.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-scan.el (97%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-search.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-smime.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-smtp.el (70%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-sort.el (98%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-ssh.el (100%) rename elpa/{mew-20251127.544/mew-ssl.el => mew-20260425.817/mew-stunnel.el} (62%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-summary.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-summary2.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-summary3.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-summary4.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-syntax.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-thread.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-unix.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-vars.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-vars2.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-vars3.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-varsx.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-virtual.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew-win32.el (100%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew.el (99%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew.info (98%) rename elpa/{mew-20251127.544 => mew-20260425.817}/mew.ja.info (99%) diff --git a/elpa/mew-20260425.817/README-elpa b/elpa/mew-20260425.817/README-elpa new file mode 100644 index 00000000..fcd811ec --- /dev/null +++ b/elpa/mew-20260425.817/README-elpa @@ -0,0 +1,4 @@ +The updated version is available from: +http://www.Mew.org/ + +See info for configuring a site file/.emacs/.mew.el. diff --git a/elpa/mew-20251127.544/dir b/elpa/mew-20260425.817/dir similarity index 100% rename from elpa/mew-20251127.544/dir rename to elpa/mew-20260425.817/dir diff --git a/elpa/mew-20251127.544/etc/Mew.img b/elpa/mew-20260425.817/etc/Mew.img similarity index 100% rename from elpa/mew-20251127.544/etc/Mew.img rename to elpa/mew-20260425.817/etc/Mew.img diff --git a/elpa/mew-20251127.544/etc/Mew.png b/elpa/mew-20260425.817/etc/Mew.png similarity index 100% rename from elpa/mew-20251127.544/etc/Mew.png rename to elpa/mew-20260425.817/etc/Mew.png diff --git a/elpa/mew-20251127.544/etc/Mew.xbm b/elpa/mew-20260425.817/etc/Mew.xbm similarity index 100% rename from elpa/mew-20251127.544/etc/Mew.xbm rename to elpa/mew-20260425.817/etc/Mew.xbm diff --git a/elpa/mew-20251127.544/etc/Mew.xpm b/elpa/mew-20260425.817/etc/Mew.xpm similarity index 100% rename from elpa/mew-20251127.544/etc/Mew.xpm rename to elpa/mew-20260425.817/etc/Mew.xpm diff --git a/elpa/mew-20251127.544/etc/mew-Audio.xpm b/elpa/mew-20260425.817/etc/mew-Audio.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Audio.xpm rename to elpa/mew-20260425.817/etc/mew-Audio.xpm index c89010f6..9d6faf7e 100644 --- a/elpa/mew-20251127.544/etc/mew-Audio.xpm +++ b/elpa/mew-20260425.817/etc/mew-Audio.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Audio_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Blank.xpm b/elpa/mew-20260425.817/etc/mew-Blank.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Blank.xpm rename to elpa/mew-20260425.817/etc/mew-Blank.xpm index 369bb906..a09d176f 100644 --- a/elpa/mew-20251127.544/etc/mew-Blank.xpm +++ b/elpa/mew-20260425.817/etc/mew-Blank.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Blank_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-External.xpm b/elpa/mew-20260425.817/etc/mew-External.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-External.xpm rename to elpa/mew-20260425.817/etc/mew-External.xpm index 291c3ccb..9ebdf055 100644 --- a/elpa/mew-20251127.544/etc/mew-External.xpm +++ b/elpa/mew-20260425.817/etc/mew-External.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_External_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Folder.xpm b/elpa/mew-20260425.817/etc/mew-Folder.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Folder.xpm rename to elpa/mew-20260425.817/etc/mew-Folder.xpm index 7286a38a..bb8311bd 100644 --- a/elpa/mew-20251127.544/etc/mew-Folder.xpm +++ b/elpa/mew-20260425.817/etc/mew-Folder.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Folder_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Image.xpm b/elpa/mew-20260425.817/etc/mew-Image.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Image.xpm rename to elpa/mew-20260425.817/etc/mew-Image.xpm index 9110b012..1c8e2801 100644 --- a/elpa/mew-20251127.544/etc/mew-Image.xpm +++ b/elpa/mew-20260425.817/etc/mew-Image.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Image_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Octet-Stream.xpm b/elpa/mew-20260425.817/etc/mew-Octet-Stream.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Octet-Stream.xpm rename to elpa/mew-20260425.817/etc/mew-Octet-Stream.xpm index cc9eff5a..97a0c204 100644 --- a/elpa/mew-20251127.544/etc/mew-Octet-Stream.xpm +++ b/elpa/mew-20260425.817/etc/mew-Octet-Stream.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_OctetStream_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Postscript.xpm b/elpa/mew-20260425.817/etc/mew-Postscript.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Postscript.xpm rename to elpa/mew-20260425.817/etc/mew-Postscript.xpm index 6ccaa020..faa18691 100644 --- a/elpa/mew-20251127.544/etc/mew-Postscript.xpm +++ b/elpa/mew-20260425.817/etc/mew-Postscript.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Postscript_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Rfc822.xpm b/elpa/mew-20260425.817/etc/mew-Rfc822.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Rfc822.xpm rename to elpa/mew-20260425.817/etc/mew-Rfc822.xpm index dbc8eb4e..22cee740 100644 --- a/elpa/mew-20251127.544/etc/mew-Rfc822.xpm +++ b/elpa/mew-20260425.817/etc/mew-Rfc822.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Rfc822_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Text.xpm b/elpa/mew-20260425.817/etc/mew-Text.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Text.xpm rename to elpa/mew-20260425.817/etc/mew-Text.xpm index 4f2a6ff7..2df1f785 100644 --- a/elpa/mew-20251127.544/etc/mew-Text.xpm +++ b/elpa/mew-20260425.817/etc/mew-Text.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Text_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Unknown.xpm b/elpa/mew-20260425.817/etc/mew-Unknown.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Unknown.xpm rename to elpa/mew-20260425.817/etc/mew-Unknown.xpm index 9ffd260e..646b4022 100644 --- a/elpa/mew-20251127.544/etc/mew-Unknown.xpm +++ b/elpa/mew-20260425.817/etc/mew-Unknown.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Unknown_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-Video.xpm b/elpa/mew-20260425.817/etc/mew-Video.xpm similarity index 95% rename from elpa/mew-20251127.544/etc/mew-Video.xpm rename to elpa/mew-20260425.817/etc/mew-Video.xpm index 34c2c4d6..2b138705 100644 --- a/elpa/mew-20251127.544/etc/mew-Video.xpm +++ b/elpa/mew-20260425.817/etc/mew-Video.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yoshiaki Kasahara - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_Video_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-attach.xpm b/elpa/mew-20260425.817/etc/mew-attach.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-attach.xpm rename to elpa/mew-20260425.817/etc/mew-attach.xpm index 9413fd20..737ac164 100644 --- a/elpa/mew-20251127.544/etc/mew-attach.xpm +++ b/elpa/mew-20260425.817/etc/mew-attach.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_attach_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-cite.xpm b/elpa/mew-20260425.817/etc/mew-cite.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-cite.xpm rename to elpa/mew-20260425.817/etc/mew-cite.xpm index 81d5f7b6..8c03ca09 100644 --- a/elpa/mew-20251127.544/etc/mew-cite.xpm +++ b/elpa/mew-20260425.817/etc/mew-cite.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_cite_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-forward.xpm b/elpa/mew-20260425.817/etc/mew-forward.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-forward.xpm rename to elpa/mew-20260425.817/etc/mew-forward.xpm index 70637071..9771776a 100644 --- a/elpa/mew-20251127.544/etc/mew-forward.xpm +++ b/elpa/mew-20260425.817/etc/mew-forward.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_forward_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-inc.xpm b/elpa/mew-20260425.817/etc/mew-inc.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-inc.xpm rename to elpa/mew-20260425.817/etc/mew-inc.xpm index b18c1e61..b2e92b26 100644 --- a/elpa/mew-20251127.544/etc/mew-inc.xpm +++ b/elpa/mew-20260425.817/etc/mew-inc.xpm @@ -2,7 +2,7 @@ /* * Copyright (C) 1997 Yoshiaki Kasahara * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_inc_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-lock.xpm b/elpa/mew-20260425.817/etc/mew-lock.xpm similarity index 91% rename from elpa/mew-20251127.544/etc/mew-lock.xpm rename to elpa/mew-20260425.817/etc/mew-lock.xpm index 195c8863..9ab0a21e 100644 --- a/elpa/mew-20251127.544/etc/mew-lock.xpm +++ b/elpa/mew-20260425.817/etc/mew-lock.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 2003 Yuuichi Teranishi - * Copyright (C) 2003 Kazu Yamamoto + * Copyright (C) 2003 Kazu Yamamoto * Copyright (C) 2004 Yoshifumi Nishida * Copyright notice is the same as Mew's one. */ diff --git a/elpa/mew-20251127.544/etc/mew-next.xpm b/elpa/mew-20260425.817/etc/mew-next.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-next.xpm rename to elpa/mew-20260425.817/etc/mew-next.xpm index 70242781..45e06a7b 100644 --- a/elpa/mew-20251127.544/etc/mew-next.xpm +++ b/elpa/mew-20260425.817/etc/mew-next.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_next_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-pgp-enc.xpm b/elpa/mew-20260425.817/etc/mew-pgp-enc.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-pgp-enc.xpm rename to elpa/mew-20260425.817/etc/mew-pgp-enc.xpm index 226bcbfe..a50f6a11 100644 --- a/elpa/mew-20251127.544/etc/mew-pgp-enc.xpm +++ b/elpa/mew-20260425.817/etc/mew-pgp-enc.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_pgp_enc_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-pgp-sigenc.xpm b/elpa/mew-20260425.817/etc/mew-pgp-sigenc.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-pgp-sigenc.xpm rename to elpa/mew-20260425.817/etc/mew-pgp-sigenc.xpm index a31a5d1a..fd88a3b8 100644 --- a/elpa/mew-20251127.544/etc/mew-pgp-sigenc.xpm +++ b/elpa/mew-20260425.817/etc/mew-pgp-sigenc.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_pgp_sigenc_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-pgp-sign.xpm b/elpa/mew-20260425.817/etc/mew-pgp-sign.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-pgp-sign.xpm rename to elpa/mew-20260425.817/etc/mew-pgp-sign.xpm index 586e85c4..cd3e71d5 100644 --- a/elpa/mew-20251127.544/etc/mew-pgp-sign.xpm +++ b/elpa/mew-20260425.817/etc/mew-pgp-sign.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_pgp_sign_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-prev.xpm b/elpa/mew-20260425.817/etc/mew-prev.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-prev.xpm rename to elpa/mew-20260425.817/etc/mew-prev.xpm index aa29da7b..f3714016 100644 --- a/elpa/mew-20251127.544/etc/mew-prev.xpm +++ b/elpa/mew-20260425.817/etc/mew-prev.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_prev_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-queue.xpm b/elpa/mew-20260425.817/etc/mew-queue.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-queue.xpm rename to elpa/mew-20260425.817/etc/mew-queue.xpm index 8d031c6a..0d11408a 100644 --- a/elpa/mew-20251127.544/etc/mew-queue.xpm +++ b/elpa/mew-20260425.817/etc/mew-queue.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_comp_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-refile.xpm b/elpa/mew-20260425.817/etc/mew-refile.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-refile.xpm rename to elpa/mew-20260425.817/etc/mew-refile.xpm index 1c3a8db9..388c4615 100644 --- a/elpa/mew-20251127.544/etc/mew-refile.xpm +++ b/elpa/mew-20260425.817/etc/mew-refile.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_refile_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-reply.xpm b/elpa/mew-20260425.817/etc/mew-reply.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-reply.xpm rename to elpa/mew-20260425.817/etc/mew-reply.xpm index e404edd0..4381e942 100644 --- a/elpa/mew-20251127.544/etc/mew-reply.xpm +++ b/elpa/mew-20260425.817/etc/mew-reply.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_reply_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-send.xpm b/elpa/mew-20260425.817/etc/mew-send.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-send.xpm rename to elpa/mew-20260425.817/etc/mew-send.xpm index 2aadb21d..4af8d34b 100644 --- a/elpa/mew-20251127.544/etc/mew-send.xpm +++ b/elpa/mew-20260425.817/etc/mew-send.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_send_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-sep.xpm b/elpa/mew-20260425.817/etc/mew-sep.xpm similarity index 85% rename from elpa/mew-20251127.544/etc/mew-sep.xpm rename to elpa/mew-20260425.817/etc/mew-sep.xpm index dc033771..31922783 100644 --- a/elpa/mew-20251127.544/etc/mew-sep.xpm +++ b/elpa/mew-20260425.817/etc/mew-sep.xpm @@ -1,6 +1,6 @@ /* XPM */ /* - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_sep_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-show.xpm b/elpa/mew-20260425.817/etc/mew-show.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-show.xpm rename to elpa/mew-20260425.817/etc/mew-show.xpm index b665fa09..120f673d 100644 --- a/elpa/mew-20251127.544/etc/mew-show.xpm +++ b/elpa/mew-20260425.817/etc/mew-show.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_show_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-write.xpm b/elpa/mew-20260425.817/etc/mew-write.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-write.xpm rename to elpa/mew-20260425.817/etc/mew-write.xpm index 424b202a..dbed00ab 100644 --- a/elpa/mew-20251127.544/etc/mew-write.xpm +++ b/elpa/mew-20260425.817/etc/mew-write.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_write_xpm[] = { diff --git a/elpa/mew-20251127.544/etc/mew-yank.xpm b/elpa/mew-20260425.817/etc/mew-yank.xpm similarity index 94% rename from elpa/mew-20251127.544/etc/mew-yank.xpm rename to elpa/mew-20260425.817/etc/mew-yank.xpm index 9ba7379f..112db331 100644 --- a/elpa/mew-20251127.544/etc/mew-yank.xpm +++ b/elpa/mew-20260425.817/etc/mew-yank.xpm @@ -1,7 +1,7 @@ /* XPM */ /* * Copyright (C) 1997 Yuuichi Teranishi - * Copyright (C) 1997 Kazu Yamamoto + * Copyright (C) 1997 Kazu Yamamoto * Copyright notice is the same as Mew's one. */ static char * mew_yank_xpm[] = { diff --git a/elpa/mew-20251127.544/mew-addrbook.el b/elpa/mew-20260425.817/mew-addrbook.el similarity index 100% rename from elpa/mew-20251127.544/mew-addrbook.el rename to elpa/mew-20260425.817/mew-addrbook.el diff --git a/elpa/mew-20251127.544/mew-attach.el b/elpa/mew-20260425.817/mew-attach.el similarity index 99% rename from elpa/mew-20251127.544/mew-attach.el rename to elpa/mew-20260425.817/mew-attach.el index 4cc62d7c..6f39ca6a 100644 --- a/elpa/mew-20251127.544/mew-attach.el +++ b/elpa/mew-20260425.817/mew-attach.el @@ -8,6 +8,10 @@ (require 'mew) +(eval-when-compile + (require 'mew-env0) + (mew-no-warning-defvar mew-prog-audio2)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; goodies diff --git a/elpa/mew-20251127.544/mew-auth.el b/elpa/mew-20260425.817/mew-auth.el similarity index 100% rename from elpa/mew-20251127.544/mew-auth.el rename to elpa/mew-20260425.817/mew-auth.el diff --git a/elpa/mew-20251127.544/mew-autoloads.el b/elpa/mew-20260425.817/mew-autoloads.el similarity index 92% rename from elpa/mew-20251127.544/mew-autoloads.el rename to elpa/mew-20260425.817/mew-autoloads.el index ba009265..25cb258a 100644 --- a/elpa/mew-20251127.544/mew-autoloads.el +++ b/elpa/mew-20260425.817/mew-autoloads.el @@ -11,8 +11,8 @@ ;;; Generated autoloads from mew.el -(autoload 'mew "mew" "\ -Execute Mew first unless Mew is running. And retrieve arrived +(autoload 'mew "mew" +"Execute Mew first unless Mew is running. And retrieve arrived messages or just visit to the default folder. `proto' is determined by `mew-proto' and `mew-case'. @@ -32,13 +32,13 @@ When executed with `\\[universal-argument]', `mew-auto-get' is considered reversed. (fn &optional ARG)" t) -(autoload 'mew-send "mew" "\ -Execute Mew then prepare a draft. This may be used as library +(autoload 'mew-send "mew" +"Execute Mew then prepare a draft. This may be used as library function. (fn &optional TO CC SUBJECT)" t) -(autoload 'mew-user-agent-compose "mew" "\ -Set up message composition draft with Mew. +(autoload 'mew-user-agent-compose "mew" +"Set up message composition draft with Mew. This is `mail-user-agent' entry point to Mew. The optional arguments TO and SUBJECT specify recipients and the @@ -165,6 +165,11 @@ CONTINUE, YANK-ACTION and SEND-ACTIONS are ignored. (register-definition-prefixes "mew-gemacs" '("mew-")) + +;;; Generated autoloads from mew-gnutls.el + +(register-definition-prefixes "mew-gnutls" '("mew-")) + ;;; Generated autoloads from mew-header.el @@ -178,7 +183,7 @@ CONTINUE, YANK-ACTION and SEND-ACTIONS are ignored. ;;; Generated autoloads from mew-imap.el -(register-definition-prefixes "mew-imap" '("mew-")) +(register-definition-prefixes "mew-imap" '("mew-imap-")) ;;; Generated autoloads from mew-imap2.el @@ -278,7 +283,7 @@ CONTINUE, YANK-ACTION and SEND-ACTIONS are ignored. ;;; Generated autoloads from mew-pop.el -(register-definition-prefixes "mew-pop" '("mew-")) +(register-definition-prefixes "mew-pop" '("mew-pop-")) ;;; Generated autoloads from mew-refile.el @@ -303,7 +308,7 @@ CONTINUE, YANK-ACTION and SEND-ACTIONS are ignored. ;;; Generated autoloads from mew-smtp.el -(register-definition-prefixes "mew-smtp" '("mew-")) +(register-definition-prefixes "mew-smtp" '("mew-smtp-")) ;;; Generated autoloads from mew-sort.el @@ -316,9 +321,9 @@ CONTINUE, YANK-ACTION and SEND-ACTIONS are ignored. (register-definition-prefixes "mew-ssh" '("mew-")) -;;; Generated autoloads from mew-ssl.el +;;; Generated autoloads from mew-stunnel.el -(register-definition-prefixes "mew-ssl" '("mew-")) +(register-definition-prefixes "mew-stunnel" '("mew-")) ;;; Generated autoloads from mew-summary.el diff --git a/elpa/mew-20251127.544/mew-blvs.el b/elpa/mew-20260425.817/mew-blvs.el similarity index 100% rename from elpa/mew-20251127.544/mew-blvs.el rename to elpa/mew-20260425.817/mew-blvs.el diff --git a/elpa/mew-20251127.544/mew-bq.el b/elpa/mew-20260425.817/mew-bq.el similarity index 99% rename from elpa/mew-20251127.544/mew-bq.el rename to elpa/mew-20260425.817/mew-bq.el index fa2dd4d9..f8b209e7 100644 --- a/elpa/mew-20251127.544/mew-bq.el +++ b/elpa/mew-20260425.817/mew-bq.el @@ -858,9 +858,13 @@ That is, each line may be more than 75." (let* ((value-params (mew-addrstr-parse-value-list whole-value)) (value (car value-params)) (params (cdr value-params)) - (max 0) num - ret ext ext-sort entry charset cs - paramname-value paramname paramvalue) + (max 0) + (num nil) + (paramname nil) + (paramvalue nil) + (charset nil) + ret ext ext-sort entry cs + paramname-value) (dolist (param params) (setq paramname-value (mew-param-analyze param)) (when paramname-value @@ -977,7 +981,9 @@ That is, each line may be more than 75." value) (defun mew-param-sanity-check (ent) - (let (param value new) + (let ((param nil) + (value nil) + new) (mew-set '(param value) ent) (setq new (mew-header-sanity-check-string value)) (unless (string= value new) (mew-decode-warning-params param 'ctl)) diff --git a/elpa/mew-20251127.544/mew-cache.el b/elpa/mew-20260425.817/mew-cache.el similarity index 100% rename from elpa/mew-20251127.544/mew-cache.el rename to elpa/mew-20260425.817/mew-cache.el diff --git a/elpa/mew-20251127.544/mew-complete.el b/elpa/mew-20260425.817/mew-complete.el similarity index 100% rename from elpa/mew-20251127.544/mew-complete.el rename to elpa/mew-20260425.817/mew-complete.el diff --git a/elpa/mew-20251127.544/mew-config.el b/elpa/mew-20260425.817/mew-config.el similarity index 100% rename from elpa/mew-20251127.544/mew-config.el rename to elpa/mew-20260425.817/mew-config.el diff --git a/elpa/mew-20251127.544/mew-const.el b/elpa/mew-20260425.817/mew-const.el similarity index 99% rename from elpa/mew-20251127.544/mew-const.el rename to elpa/mew-20260425.817/mew-const.el index 632c5335..bf9afa9a 100644 --- a/elpa/mew-20251127.544/mew-const.el +++ b/elpa/mew-20260425.817/mew-const.el @@ -330,7 +330,6 @@ (defconst mew-inherit-pick-mewlp nil) (defconst mew-inherit-pick-omit-and nil) (defconst mew-inherit-pick-omit-and2 nil) -(defconst mew-inherit-submission nil) (defconst mew-inherit-complete-folder nil) (provide 'mew-const) diff --git a/elpa/mew-20251127.544/mew-darwin.el b/elpa/mew-20260425.817/mew-darwin.el similarity index 100% rename from elpa/mew-20251127.544/mew-darwin.el rename to elpa/mew-20260425.817/mew-darwin.el diff --git a/elpa/mew-20251127.544/mew-decode.el b/elpa/mew-20260425.817/mew-decode.el similarity index 99% rename from elpa/mew-20251127.544/mew-decode.el rename to elpa/mew-20260425.817/mew-decode.el index 64a88de1..5ea9ba53 100644 --- a/elpa/mew-20251127.544/mew-decode.el +++ b/elpa/mew-20260425.817/mew-decode.el @@ -373,7 +373,8 @@ Called on the beginning of the content header in the narrowed region Return a part syntax after moving the beginning of the content body." (let ((case-fold-search t) (vec (make-vector (length mew-mime-fields) nil)) - key med attr n act value syntax) + (n nil) (act nil) + key med attr value syntax) (mew-decode-narrow-to-header (while (not (eobp)) (if (not (looking-at mew-keyval)) @@ -889,7 +890,7 @@ Return a part syntax after moving the beginning of the content body." (count 0) (parts []) part (use-alt (and (mew-dinfo-get-use-alt) (string= ct mew-ct-mla))) - prefpart lastpref lastatpref + (prefpart nil) (lastpref nil) (lastatpref nil) bregex start break) (unless boundary (mew-decode-error "No boundary parameter for multipart")) @@ -946,7 +947,7 @@ Return a part syntax after moving the beginning of the content body." (ctl (mew-syntax-get-ct syntax)) (boundary (mew-syntax-get-param ctl "boundary")) (switch mew-decode-multipart-encrypted-switch) - file1 file2 file3 syntax1 syntax3 func unknown existp proto + file1 file2 (file3 nil) syntax1 syntax3 func unknown existp proto start result file3result privacy bregex) (unless boundary (mew-decode-error "No boundary parameter for multipart")) diff --git a/elpa/mew-20251127.544/mew-demo.el b/elpa/mew-20260425.817/mew-demo.el similarity index 100% rename from elpa/mew-20251127.544/mew-demo.el rename to elpa/mew-20260425.817/mew-demo.el diff --git a/elpa/mew-20251127.544/mew-draft.el b/elpa/mew-20260425.817/mew-draft.el similarity index 99% rename from elpa/mew-20251127.544/mew-draft.el rename to elpa/mew-20260425.817/mew-draft.el index be0967a5..145a5da5 100644 --- a/elpa/mew-20251127.544/mew-draft.el +++ b/elpa/mew-20260425.817/mew-draft.el @@ -596,9 +596,9 @@ format=flowed is used on composing." (mew-decode-flowed (point) (point-max) (if (string= (mew-tinfo-get-flowed) "yes") t nil)) (mew-tinfo-set-flowed nil)) - (let* ((charset (mew-charset-guess-region (point) (point-max))) - (flowed-delsp (mew-encode-flowed (point) (point-max) charset)) - flowed delsp) + (let* ((flowed-delsp (mew-encode-flowed (point) (point-max))) + (flowed nil) + (delsp nil)) (mew-set '(flowed delsp) flowed-delsp) (if (not flowed) (message "No line folded") diff --git a/elpa/mew-20251127.544/mew-edit.el b/elpa/mew-20260425.817/mew-edit.el similarity index 100% rename from elpa/mew-20251127.544/mew-edit.el rename to elpa/mew-20260425.817/mew-edit.el diff --git a/elpa/mew-20251127.544/mew-encode.el b/elpa/mew-20260425.817/mew-encode.el similarity index 98% rename from elpa/mew-20251127.544/mew-encode.el rename to elpa/mew-20260425.817/mew-encode.el index 9b50ae80..6027b81b 100644 --- a/elpa/mew-20251127.544/mew-encode.el +++ b/elpa/mew-20260425.817/mew-encode.el @@ -378,7 +378,7 @@ (mew-set-buffer-multibyte t) (if (buffer-modified-p) (save-buffer)) ;; to make backup (widen) - (let (multip recipients msgid logtime) + (let (multip recipients (msgid nil) (logtime nil)) (mew-smtp-set-raw-header pnm (mew-buffer-substring (point-min) (mew-header-end))) (unless headerp @@ -467,7 +467,7 @@ (mew-set-buffer-multibyte t) (if (buffer-modified-p) (save-buffer)) ;; to make backup (widen) - (let (multip newsgroups msgid logtime) + (let (multip newsgroups (msgid nil) (logtime nil)) (mew-nntp2-set-raw-header pnm (mew-buffer-substring (point-min) (mew-header-end))) ;; Let's backup @@ -608,7 +608,7 @@ (if (string= (mew-tinfo-get-flowed) "yes") (setq delsp t))) ((mew-tinfo-get-use-flowed) - (setq flowed-delsp (mew-encode-flowed beg (point-max) charset)) + (setq flowed-delsp (mew-encode-flowed beg (point-max))) (mew-set '(flowed delsp) flowed-delsp)))) (unless (mew-coding-system-p cs) (mew-encode-error @@ -726,7 +726,7 @@ ;; mew-heaer-insert will do this later (list "name" name)))) -(defun mew-encode-flowed (beg end charset) +(defun mew-encode-flowed (beg end) "Encoding lines with RFC 3676" (let (flowed delsp column) (save-excursion @@ -820,7 +820,8 @@ (no-encoding (mew-encode-no-mime-encoding privacy)) (mew-inherit-7bit (mew-encode-limit-7bitp privacy)) (beg (point)) - mret charset bodybeg cst ask-cst broken-name flowed delsp) + mret (charset nil) bodybeg cst ask-cst + broken-name (flowed nil) (delsp nil)) (setq mret (mew-encode-mime-body ctl cte (or buffered file) no-encoding)) (goto-char beg) (mew-set '(cte charset flowed delsp) mret) @@ -984,7 +985,7 @@ (defun mew-encode-security-multipart (beg privacy depth decrypters cte) (save-restriction (narrow-to-region beg (point-max)) - (let (proto ct) + (let ((proto nil) ct) (dolist (ent privacy) (goto-char (point-min)) (mew-set '(ct proto) ent) @@ -1042,7 +1043,7 @@ (let* ((boundary (mew-security-multipart-boundary depth)) (switch mew-encode-multipart-encrypted-switch) ;; save length (func (mew-encode-get-security-func proto switch)) - file1 file2 file3 cte2 cte3 fc errmsg) + file1 (file2 nil) (file3 nil) (cte2 nil) (cte3 nil) fc (errmsg nil)) ;; Write the part converting line breaks. (setq file1 (mew-save-transfer-form (point-min) (point-max) nil cte)) ;; The narrowed region stores nothing @@ -1089,7 +1090,8 @@ (switch mew-encode-multipart-signed-switch) ;; save length (func (mew-encode-get-security-func proto switch)) (canon-func (mew-encode-get-canonicalize-func proto switch)) - file1 file2 micalg cte2 fmc errmsg ct2 cdp2) + file1 (file2 nil) (micalg nil) (cte2 nil) fmc + (errmsg nil) (ct2 nil) (cdp2 nil)) (if (fboundp canon-func) (funcall canon-func)) (setq file1 (mew-save-transfer-form (point-min) (point-max) 'retain)) ;; The narrowed region still the ORIGINAL part (i.e. line breaks are LF) @@ -1259,8 +1261,8 @@ (setq cte mew-b64)) (unless (mew-case-equal cte mew-7bit) (mew-convert-mime-body - ctbody-beg (point-max) cte (mew-ct-linebasep ct)))) - (goto-char (point-min))) + ctbody-beg (point-max) cte (mew-ct-linebasep ct))))) + (goto-char (point-min)) (mew-header-delete-lines (list mew-cte:)) (goto-char cthd-end) (mew-header-insert mew-cte: (concat cte " " mew-field-comment)))))) diff --git a/elpa/mew-20251127.544/mew-env.el b/elpa/mew-20260425.817/mew-env.el similarity index 100% rename from elpa/mew-20251127.544/mew-env.el rename to elpa/mew-20260425.817/mew-env.el diff --git a/elpa/mew-20251127.544/mew-env0.el b/elpa/mew-20260425.817/mew-env0.el similarity index 100% rename from elpa/mew-20251127.544/mew-env0.el rename to elpa/mew-20260425.817/mew-env0.el diff --git a/elpa/mew-20251127.544/mew-exec.el b/elpa/mew-20260425.817/mew-exec.el similarity index 100% rename from elpa/mew-20251127.544/mew-exec.el rename to elpa/mew-20260425.817/mew-exec.el diff --git a/elpa/mew-20251127.544/mew-ext.el b/elpa/mew-20260425.817/mew-ext.el similarity index 98% rename from elpa/mew-20251127.544/mew-ext.el rename to elpa/mew-20260425.817/mew-ext.el index 5ad7fbf8..57564781 100644 --- a/elpa/mew-20251127.544/mew-ext.el +++ b/elpa/mew-20260425.817/mew-ext.el @@ -12,7 +12,13 @@ ;; ((mew-which-el "efs") ;; (require 'efs)) ((mew-which-el "ange-ftp") - (require 'ange-ftp)))) + (require 'ange-ftp))) + (require 'mew-env0) + (mew-no-warning-defvar mew-prog-text/html-ext) + (declare-function ange-ftp-copy-file-internal "ange-ftp.el") + (declare-function ange-ftp-expand-file-name "ange-ftp.el") + (declare-function ange-ftp-file-name-completion "ange-ftp.el") + (declare-function ange-ftp-file-name-all-completions "ange-ftp.el")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; diff --git a/elpa/mew-20251127.544/mew-fib.el b/elpa/mew-20260425.817/mew-fib.el similarity index 100% rename from elpa/mew-20251127.544/mew-fib.el rename to elpa/mew-20260425.817/mew-fib.el diff --git a/elpa/mew-20251127.544/mew-func.el b/elpa/mew-20260425.817/mew-func.el similarity index 99% rename from elpa/mew-20251127.544/mew-func.el rename to elpa/mew-20260425.817/mew-func.el index be830678..c8450c2c 100644 --- a/elpa/mew-20251127.544/mew-func.el +++ b/elpa/mew-20260425.817/mew-func.el @@ -539,7 +539,8 @@ If case is \"default\", it is not prepended." (concat mew-folder-local folder)) (defun mew-folder-path-to-folder (path &optional has-proto) - (let (case proto) + (let ((case nil) + (proto nil)) ;; depends on folder (mew-set '(case proto) (mew-summary-case-proto)) (if (mew-folder-localp proto) diff --git a/elpa/mew-20251127.544/mew-gemacs.el b/elpa/mew-20260425.817/mew-gemacs.el similarity index 99% rename from elpa/mew-20251127.544/mew-gemacs.el rename to elpa/mew-20260425.817/mew-gemacs.el index 1337e7ab..2468dc8c 100644 --- a/elpa/mew-20251127.544/mew-gemacs.el +++ b/elpa/mew-20260425.817/mew-gemacs.el @@ -363,7 +363,7 @@ with fitting to frame size" t '(t nil) nil) (setq format 'pbm)) (if mew-image-display-resize-care-height - (call-process-region (point-min) (point-max) mew-prog-pamscale + (call-process-region (point-min) (point-max) mew-prog-pamscale t '(t nil) nil mew-prog-pamscale-opt (format "%d" width) @@ -395,7 +395,7 @@ with fitting to frame size" (defun mew-x-face-create () (mew-create-image - (string-as-unibyte (mew-buffer-substring (point-min) (point-max))) + (encode-coding-string (mew-buffer-substring (point-min) (point-max)) mew-cs-binary) nil t)) (defun mew-x-face-display (xface) diff --git a/elpa/mew-20260425.817/mew-gnutls.el b/elpa/mew-20260425.817/mew-gnutls.el new file mode 100644 index 00000000..1551b0c9 --- /dev/null +++ b/elpa/mew-20260425.817/mew-gnutls.el @@ -0,0 +1,285 @@ +;;; -*- lexical-binding: nil; -*- +;;; mew-gnutls.el + +;; Author: Mew developing team +;; Created: Mar 6, 2026 + +;;; Code: + +(defvar mew-gnutls-min-prime-bits 2048 + "Default prime bits for GnuTLS connection.") + +(defvar mew-gnutls-verify-error nil + "verify-error parameter passed to GnuTLS. You might want to +keep this as nil.") + +(defun mew-gnutls-p (type) + "Return if the type is gnutls or not" + (or (eq type 'native) + (and (eq type t) (eq mew-ssl-default 'native)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; Parameters +;;; + +(defvar mew-gnutls-plist + '(;; RFC 3207 + (smtp . (:capability-command + (format "EHLO %s\n" (mew-smtp-helo-domain case)) + :always-query-capabilities t + :end-of-command + (format "^[0-9]+ .*\n") + :end-of-capability + (format "^[0-9]+ .*\n") + :success (format "^2.*\n") + :starttls-function + (lambda (capabilities) + (and (string-match "[ -]STARTTLS" capabilities) + "STARTTLS\n")))) + ;; RFC 2595 + (imap . (:capability-command + (format "1 CAPABILITY\n") + :always-query-capabilities t + :end-of-capability + (format "\n") + :end-of-command + (format "\n") + :success + (format "^1 OK ") + :starttls-function + (lambda (capabilities) + (when (string-match-p "STARTTLS" capabilities) + "1 STARTTLS\n")))) + ;; RFC 2595 + (pop . (:capability-command + (format "CAPA\n") + :always-query-capabilities nil + :end-of-capability + (format "^\\.\n\\|^-ERR") + :end-of-command + (format "^\\(-ERR\\|+OK\\).*\n") + :success + (format "^\\+OK.*\n") + :starttls-function + (lambda (capabilities) + (and (string-match "\\bSTLS\\b" capabilities) + "STLS\n")))) + ;; RFC 4642 + (nntp . (:capability-command + (format "CAPABILITIES\n") + :always-query-capabilities t + :end-of-capability + (format "^\\.\n") + :end-of-command + (format "^\\.\n") + :success + (format "^2.+ \n") + :starttls-function + (lambda (capabilities) + (when (string-match-p "STARTTLS" capabilities) + "STARTTLS\n")))) + )) + +(defun mew-gnutls-get-param (proto key evalp) + "Get parameter from mew-gnutls-plist" + (let ((p (plist-get (cdr (assq proto mew-gnutls-plist)) key))) + (if evalp (eval p) p))) + +;;; XXX: (mew-open-network-stream) always returns a list +;; and is also used for non-SMTP protocols. +;;; XXX: port must be resolved by using mew-serv-to-port +;; because some service names are not in /etc/services. +;; mew-serv-to-port uses mew-port-db. +(defvar mew--advice-tls-parameters-plist nil) + +(defun mew--advice-filter-args-gnutls-negotiate (&rest args) + (nconc (car args) mew--advice-tls-parameters-plist)) + +(defun mew-gnutls-boot-parameters (case hostname) + (cons 'gnutls-x509pki + ;; XXX: (gnutls-boot-parameters) returns + ;; :priority key instead of :priority-string + ;; while (gnutls-negotiate) accepts + ;; :priority-string. To handle this odd + ;; mismatch, create :priority-string in the + ;; result of (gnutls-boot-parameters) here. + (let ((boot-params + (gnutls-boot-parameters + :type 'gnutls-x509pki + :keylist (mew-ssl-client-keycert-list case) + :trustfiles (mew-ssl-trustfiles case) + :priority-string (mew-ssl-algorithm-priority case) + :min-prime-bits mew-gnutls-min-prime-bits + ;; + ;; mew-gnutls-verify-error should be nil + ;; to defer verification to NSM. Note + ;; that gnutls-verify-error overrides + ;; verify-error when it is nil. + ;; Setting gnutls-verify-error to t is + ;; also discouraged. + ;; + :verify-error mew-gnutls-verify-error + :hostname hostname))) + (plist-put boot-params + :priority-string + (plist-get boot-params :priority))))) + +(defun mew-gnutls-parameters (proto starttlsp) + (list + :always-query-capabilities + (and starttlsp + (mew-gnutls-get-param + proto :always-query-capabilities nil)) + :capability-command + (and starttlsp + (mew-gnutls-get-param + proto :capability-command t)) + :end-of-capability + (and starttlsp + (mew-gnutls-get-param + proto :end-of-capability t)) + :end-of-command + (and starttlsp + (mew-gnutls-get-param + proto :end-of-command t)) + :success + (and starttlsp + (mew-gnutls-get-param + proto :success t)) + :starttls-function + (and starttlsp + (mew-gnutls-get-param + proto :starttls-function nil)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; +;;; + +(defun mew-open-gnutls-stream (name buf server port proto starttlsp case status-msg) + (let* ((hostname (puny-encode-domain server)) + ;; Note: on Emacs 26.3 and prior GnuTLS always uses + ;; the system-wide default path first even if + ;; trustfiles is specified. + (nsm-noninteractive nil) + (network-security-level network-security-level) + (tlsparams (mew-gnutls-boot-parameters case hostname)) + (type (if starttlsp 'starttls 'tls)) + pro-plist) + (when (eq (mew-ssl-verify-level case) 0) + ;; Forcibly disable verification. + (setq network-security-level 'low)) + ;; debug output: TLS params + (funcall (intern (concat "mew-" (symbol-name proto) "-debug")) + (format "TLS proto=%s, server=%s:%s, starttlsp=%s" + proto hostname port starttlsp) + (format "verify-level=%s, network-security-level=%s, tlsparams=%s" + (mew-ssl-verify-level case) network-security-level + (apply #'concat (mapcar (lambda (a) (format "%s " a)) tlsparams)))) + ;; XXX: (open-network-stream) does not pass tlsparams + ;; to (gnutls-negotiate) to start STARTTLS. As a + ;; workaround, add an advice to forcibly append the + ;; parameters. This should be fixed in + ;; (open-network-stream). + (setq mew--advice-tls-parameters-plist (cdr tlsparams)) + (advice-add 'gnutls-negotiate + :filter-args #'mew--advice-filter-args-gnutls-negotiate) + ;; + ;; Override key functions when using a tunnel. + (with-temp-message status-msg + (setq pro-plist (apply + 'open-network-stream + name buf server port + :coding mew-cs-text-for-net + :type type + :return-list t + (mew-gnutls-parameters proto starttlsp)))) + (advice-remove 'gnutls-negotiate + #'mew--advice-filter-args-gnutls-negotiate) + pro-plist)) + +(defun mew-check-process (pro-plist status-msg) + (let* ((pro (car pro-plist)) + (plist (cdr pro-plist)) + (openp (and (processp pro) (eq 'open (process-status pro))))) + (if openp + pro-plist + (if (processp pro) (delete-process pro)) + (let ((msg (plist-get plist :error))) + (message "%s" (concat status-msg "FAILED: " msg))) + (list nil)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; +;;; + +(defun mew-open-network-stream (name buf server port proto gnutlsp starttlsp case) + (let* ((tun-type nil) + (status-msg (format "Opening a %s connection %s%s%s..." + (if gnutlsp "TLS" "TCP") + (if gnutlsp "(GnuTLS" "") + (if gnutlsp + (if starttlsp ", STARTTLS)" ")") + "") + (if (eq tun-type 'ssh) " over SSH" + ""))) + (pro-plist (list nil)) + family) + ;; TLS does not work for Unix-domain socket for now. + (when (and (not gnutlsp) (stringp port) (string-match "^/" port)) + (setq family 'local) + (setq server 'local)) + (cond + ;; Both GnuTLS and NSM are mandatory for 'native. + ((and gnutlsp (or (not (fboundp 'gnutls-available-p)) + (not (gnutls-available-p)) + (not (fboundp 'gnutls-boot-parameters)) + (not (fboundp 'nsm-level)))) + (message "%s" (concat status-msg "FAILED (GnuTLS or NSM not available)"))) + (gnutlsp + (setq pro-plist (mew-open-gnutls-stream name buf server port proto starttlsp case status-msg)) + (mew-check-process pro-plist status-msg)) + (t + (with-temp-message status-msg + (setq pro-plist (apply 'open-network-stream + name buf server port + :coding mew-cs-text-for-net + :return-list t + :family family))) + (mew-check-process pro-plist status-msg))))) + +(provide 'mew-gnutls) + +;;; Copyright Notice: + +;; Copyright (C) 2002-2026 Mew developing team. +;; All rights reserved. + +;; Redistribution and use in source and binary forms, with or without +;; modification, are permitted provided that the following conditions +;; are met: +;; +;; 1. Redistributions of source code must retain the above copyright +;; notice, this list of conditions and the following disclaimer. +;; 2. Redistributions in binary form must reproduce the above copyright +;; notice, this list of conditions and the following disclaimer in the +;; documentation and/or other materials provided with the distribution. +;; 3. Neither the name of the team nor the names of its contributors +;; may be used to endorse or promote products derived from this software +;; without specific prior written permission. +;; +;; THIS SOFTWARE IS PROVIDED BY THE TEAM AND CONTRIBUTORS ``AS IS'' AND +;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +;; PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE TEAM OR CONTRIBUTORS BE +;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR +;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, +;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE +;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN +;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +;;; mew-gnutls.el ends here diff --git a/elpa/mew-20251127.544/mew-header.el b/elpa/mew-20260425.817/mew-header.el similarity index 100% rename from elpa/mew-20251127.544/mew-header.el rename to elpa/mew-20260425.817/mew-header.el diff --git a/elpa/mew-20251127.544/mew-highlight.el b/elpa/mew-20260425.817/mew-highlight.el similarity index 98% rename from elpa/mew-20251127.544/mew-highlight.el rename to elpa/mew-20260425.817/mew-highlight.el index 652673a0..e1769056 100644 --- a/elpa/mew-20251127.544/mew-highlight.el +++ b/elpa/mew-20260425.817/mew-highlight.el @@ -8,6 +8,10 @@ (require 'mew) +(eval-when-compile + (if (mew-which-el "face-remap") + (require 'face-remap))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Cursor line @@ -155,8 +159,7 @@ (when (and (or mew-use-highlight-body mew-use-highlight-url) (or (= 0 mew-highlight-body-max-size) (<= (- END BEG) mew-highlight-body-max-size))) - (let* ((inhibit-point-motion-hooks t) - (cite-regex mew-highlight-body-regex-cite) + (let* ((cite-regex mew-highlight-body-regex-cite) (cmt-regex mew-highlight-body-regex-comment) (url-regex mew-regex-url) (fancy-num 0) @@ -330,8 +333,7 @@ ;; See also mew-scan-insert-line (defun mew-summary-cook-region (beg end &optional interrupt) (when (and (mew-summary-or-virtual-p) mew-summary-buffer-raw) - (let ((inhibit-point-motion-hooks t) - ret mark face start med) + (let (ret mark face start med) (catch 'loop (save-excursion (mew-elet diff --git a/elpa/mew-20251127.544/mew-imap.el b/elpa/mew-20260425.817/mew-imap.el similarity index 97% rename from elpa/mew-20251127.544/mew-imap.el rename to elpa/mew-20260425.817/mew-imap.el index 6896fd6d..40a164ea 100644 --- a/elpa/mew-20251127.544/mew-imap.el +++ b/elpa/mew-20260425.817/mew-imap.el @@ -33,7 +33,7 @@ ;;; (defvar mew-imap-info-list - '("server" "port" "process" "ssh-process" "ssl-process" "ssl-p" "status" + '("server" "port" "process" "ssh-process" "ssl-process" "secure" "status" "directive" "bnm" "mdb" "rmvs" "kils" "refs" "movs" "rtrs" "dels" "uidl" "range" @@ -108,7 +108,7 @@ ;;; (defun mew-imap-secure-p (pnm) - (or (mew-imap-get-ssh-process pnm) (mew-imap-get-ssl-p pnm))) + (mew-imap-get-secure pnm)) (defun mew-imap-command-capability (pro pnm) (mew-net-status (mew-imap-get-status-buf pnm) @@ -780,7 +780,8 @@ (case (mew-imap-get-case pnm)) (prefix-list (mew-imap-prefix-list case)) (my-prefix "") - user-prefix sexp sep sharp namespace ent my sp specials) + (my nil) (sp nil) + user-prefix sexp sep sharp namespace ent specials) (goto-char (point-max)) (forward-line -1) (save-restriction @@ -832,7 +833,7 @@ (queue (mew-imap-queue-folder case)) (namespace (mew-imap-get-namespace pnm)) (specials (mew-imap-get-specials pnm)) - ret mailboxes friends) + ret mailboxes (friends nil)) (unless namespace (setq namespace (mew-imap-namespace-create nil "" "" nil)) ;; xxx separator? (mew-imap-set-namespace pnm namespace)) @@ -1248,27 +1249,26 @@ (defun mew-imap-open (pnm case server port no-msg starttlsp) (let ((sprt (mew-*-to-port port)) - (sslnp (mew-ssl-native-p (mew-imap-ssl case))) + (gnutlsp (mew-gnutls-p (mew-imap-ssl case))) + (pro-plist (list nil)) pro tm) (condition-case emsg (progn (setq tm (run-at-time mew-imap-timeout-time nil 'mew-imap-timeout)) (or no-msg (message "Connecting to the IMAP server...")) - (setq pro (mew-open-network-stream pnm nil server sprt - 'imap sslnp starttlsp case)) - (setq pro (car pro)) + (setq pro-plist (mew-open-network-stream pnm nil server sprt + 'imap gnutlsp starttlsp case)) + (setq pro (car pro-plist)) (when (not (processp pro)) (signal 'quit nil)) (mew-process-silent-exit pro) (mew-set-process-cs pro mew-cs-binary mew-cs-text-for-net) (or no-msg (message "Connecting to the IMAP server...done"))) (quit - (or no-msg (message "Cannot connect to the IMAP server")) - (setq pro nil)) + (or no-msg (message "Cannot connect to the IMAP server"))) (error - (or no-msg (message "%s, %s" (nth 1 emsg) (nth 2 emsg))) - (setq pro nil))) + (or no-msg (message "%s, %s" (nth 1 emsg) (nth 2 emsg))))) (if tm (cancel-timer tm)) - pro)) + pro-plist)) (defun mew-imap-timeout () ;; Do not timeout if the NSM query pane is active. @@ -1297,20 +1297,18 @@ (setq ret (cons (mew-make-mark-hist :msg msg :mark mew-mark-read) ret)))))) (nreverse ret))) -(defvar mew--gnutls-imap-greeting nil) - (defun mew-imap-retrieve (case directive bnm &rest args) (let* ((server (mew-imap-server case)) (user (mew-imap-user case)) (port (mew-*-to-string (mew-imap-port case))) (sshsrv (mew-imap-ssh-server case)) - (sslp (mew-imap-ssl case)) + (stunnelp (mew-stunnel-p (mew-imap-ssl case))) (sslport (mew-imap-ssl-port case)) - (sslnp (mew-ssl-native-p (mew-imap-ssl case))) + (gnutlsp (mew-gnutls-p (mew-imap-ssl case))) (starttlsp - (mew-ssl-starttls-p (mew-imap-ssl case) - (mew-*-to-string (mew-imap-port case)) - (mew-imap-ssl-port case))) + (mew-starttls-p (mew-imap-ssl case) + (mew-*-to-string (mew-imap-port case)) + (mew-imap-ssl-port case))) (proxysrv (mew-imap-proxy-server case)) (proxyport (mew-imap-proxy-port case)) ;; dirty but necessary for migration @@ -1320,37 +1318,39 @@ (pnm (mew-imap-info-name case mailbox)) (buf (get-buffer-create (mew-imap-buffer-name pnm))) (no-msg (eq directive 'biff)) - process sshname sshpro sslname sslpro lport info jobs tls - virtual-info disp-info virtual) + process sshname sshpro sslname sslpro lport info jobs protocol pro-plist + virtual-info disp-info virtual secure) (if (mew-imap-get-process pnm) (message "Another IMAP process is running. Try later") (cond - (sslnp + (gnutlsp (let ((serv (if starttlsp port sslport))) - (setq process (mew-imap-open pnm case server serv no-msg starttlsp)))) + (setq pro-plist (mew-imap-open pnm case server serv no-msg starttlsp)))) (sshsrv (setq sshpro (mew-open-ssh-stream case server port sshsrv)) (when sshpro (setq sshname (process-name sshpro)) (setq lport (mew-ssh-pnm-to-lport sshname)) (when lport - (setq process (mew-imap-open pnm case "localhost" lport no-msg nil))))) - (sslp - (when starttlsp (setq tls mew-tls-imap)) - (setq sslpro (mew-open-ssl-stream case server sslport tls)) + (setq pro-plist (mew-imap-open pnm case "localhost" lport no-msg nil))))) + (stunnelp + (when starttlsp (setq protocol mew-stunnel-protocol-imap)) + (setq sslpro (mew-open-stunnel-stream case server sslport protocol)) (when sslpro (setq sslname (process-name sslpro)) (setq lport (mew-ssl-pnm-to-lport sslname)) (when lport - (setq process (mew-imap-open pnm case mew-ssl-localhost lport no-msg nil))))) + (setq pro-plist (mew-imap-open pnm case mew-stunnel-localhost lport no-msg nil))))) (proxysrv - (setq process (mew-imap-open pnm case proxysrv proxyport no-msg nil))) + (setq pro-plist (mew-imap-open pnm case proxysrv proxyport no-msg nil))) (t - (setq process (mew-imap-open pnm case server port no-msg nil)))) + (setq pro-plist (mew-imap-open pnm case server port no-msg nil)))) + (setq process (car pro-plist)) (if (null process) (when (eq directive 'exec) (mew-imap-exec-recover bnm)) - (mew-summary-lock process "IMAPing" (or sshpro sslp)) + (setq secure (or sshpro stunnelp gnutlsp)) + (mew-summary-lock process "IMAPing" secure) (mew-sinfo-set-summary-form (mew-get-summary-form bnm)) (mew-sinfo-set-summary-column (mew-get-summary-column bnm)) (mew-sinfo-set-unread-mark nil) @@ -1362,7 +1362,7 @@ (mew-imap-set-process pnm process) (mew-imap-set-ssh-process pnm sshpro) (mew-imap-set-ssl-process pnm sslpro) - (mew-imap-set-ssl-p pnm sslp) + (mew-imap-set-secure pnm secure) (mew-imap-set-server pnm server) (mew-imap-set-port pnm port) (mew-imap-set-user pnm user) @@ -1402,7 +1402,7 @@ (when virtual (mew-imap-set-status-buf pnm virtual) (with-current-buffer virtual - (mew-summary-lock process "IMAPing" (or sshpro sslp))))) + (mew-summary-lock process "IMAPing" (or sshpro stunnelp gnutlsp))))) ((eq directive 'scan) (mew-imap-set-range pnm (nth 0 args)) (mew-imap-set-get-body pnm (nth 1 args)) @@ -1446,15 +1446,9 @@ (set-process-filter process 'mew-imap-filter) (set-process-buffer process buf) ;; - (when sslnp - ;; GnuTLS receives IMAP greeting in its internals - ;; and passes it as a return value. - ;; We store the value in the variable mew--gnutls-imap-greeting - ;; and pass it to the filter to process the greeting. - (mew-imap-filter process - (string-replace "\r\n" "\n" - mew--gnutls-imap-greeting))) - )))) + (when (and gnutlsp starttlsp) + (let ((greeting (plist-get (cdr pro-plist) :greeting))) + (if (stringp greeting) (mew-imap-filter process greeting)))))))) (defun mew-imap-exec-recover (bnm) (mew-summary-visible-buffer bnm) @@ -1568,7 +1562,7 @@ (defun mew-imap-mark-recover (mdb) (let ((opos (point)) (case-fold-search nil) - msg mrk omrk) + (msg nil) (mrk nil) omrk) (goto-char (point-min)) (dolist (ent mdb) (mew-set '(msg mrk) ent) diff --git a/elpa/mew-20251127.544/mew-imap2.el b/elpa/mew-20260425.817/mew-imap2.el similarity index 95% rename from elpa/mew-20251127.544/mew-imap2.el rename to elpa/mew-20260425.817/mew-imap2.el index 0862c1b6..408e8759 100644 --- a/elpa/mew-20251127.544/mew-imap2.el +++ b/elpa/mew-20260425.817/mew-imap2.el @@ -383,27 +383,26 @@ (defun mew-imap2-open (pnm case server port starttlsp) (let ((sprt (mew-*-to-port port)) - (sslnp (mew-ssl-native-p (mew-imap-ssl case))) + (gnutlsp (mew-gnutls-p (mew-imap-ssl case))) + (pro-plist (list nil)) pro tm) (condition-case emsg (progn (setq tm (run-at-time mew-imap-timeout-time nil 'mew-imap2-timeout)) (message "Connecting to the IMAP server...") - (setq pro (mew-open-network-stream pnm nil server sprt - 'imap sslnp starttlsp case)) - (setq pro (car pro)) + (setq pro-plist (mew-open-network-stream pnm nil server sprt + 'imap gnutlsp starttlsp case)) + (setq pro (car pro-plist)) (when (not (processp pro)) (signal 'quit nil)) (mew-process-silent-exit pro) (mew-set-process-cs pro mew-cs-text-for-net mew-cs-text-for-net) (message "Connecting to the IMAP server...done")) (quit - (setq pro nil) (message "Cannot connect to the IMAP server")) (error - (setq pro nil) (message "%s, %s" (nth 1 emsg) (nth 2 emsg)))) (if tm (cancel-timer tm)) - pro)) + pro-plist)) (defun mew-imap2-timeout () ;; Do not timeout if the NSM query pane is active. @@ -423,44 +422,45 @@ (port (mew-*-to-string (mew-imap-port case))) (pnm (mew-imap2-info-name case)) (sshsrv (mew-imap-ssh-server case)) - (sslp (mew-imap-ssl case)) + (stunnelp (mew-stunnel-p (mew-imap-ssl case))) (sslport (mew-imap-ssl-port case)) - (sslnp (mew-ssl-native-p (mew-imap-ssl case))) + (gnutlsp (mew-gnutls-p (mew-imap-ssl case))) (starttlsp - (mew-ssl-starttls-p (mew-imap-ssl case) - (mew-*-to-string (mew-imap-port case)) - (mew-imap-ssl-port case))) + (mew-starttls-p (mew-imap-ssl case) + (mew-*-to-string (mew-imap-port case)) + (mew-imap-ssl-port case))) (proxysrv (mew-imap-proxy-server case)) (proxyport (mew-imap-proxy-port case)) - process sshname sshpro sslname sslpro lport tls) + process sshname sshpro sslname sslpro lport protocol pro-plist) (cond - (sslnp + (gnutlsp (let ((serv (if starttlsp port sslport))) - (setq process (mew-imap2-open pnm case server serv starttlsp)))) + (setq pro-plist (mew-imap2-open pnm case server serv starttlsp)))) (sshsrv (setq sshpro (mew-open-ssh-stream case server port sshsrv)) (when sshpro (setq sshname (process-name sshpro)) (setq lport (mew-ssh-pnm-to-lport sshname)) (when lport - (setq process (mew-imap2-open pnm case "localhost" lport nil))))) - (sslp - (when starttlsp (setq tls mew-tls-imap)) - (setq sslpro (mew-open-ssl-stream case server sslport tls)) + (setq pro-plist (mew-imap2-open pnm case "localhost" lport nil))))) + (stunnelp + (when starttlsp (setq protocol mew-stunnel-protocol-imap)) + (setq sslpro (mew-open-stunnel-stream case server sslport protocol)) (when sslpro (setq sslname (process-name sslpro)) (setq lport (mew-ssl-pnm-to-lport sslname)) (when lport - (setq process (mew-imap2-open pnm case mew-ssl-localhost lport nil))))) + (setq pro-plist (mew-imap2-open pnm case mew-stunnel-localhost lport nil))))) (proxysrv - (setq process (mew-imap2-open pnm case proxysrv proxyport nil))) + (setq pro-plist (mew-imap2-open pnm case proxysrv proxyport nil))) (t - (setq process (mew-imap2-open pnm case server port nil)))) + (setq pro-plist (mew-imap2-open pnm case server port nil)))) + (setq process (car pro-plist)) (if (null process) (cond ((and sshsrv (null sshpro)) (message "Cannot create to the SSH connection")) - ((and sslp (null sslpro)) + ((and stunnelp (null sslpro)) (message "Cannot create to the SSL/TLS connection")) (t (message "Cannot connect to the IMAP server"))) @@ -486,13 +486,9 @@ (set-process-sentinel process 'mew-imap2-sentinel) (set-process-filter process 'mew-imap2-filter) (message "Copying in background...") - (when sslnp - ;; GnuTLS requires a client-initiated command after the - ;; session is established or upgraded to use TLS because - ;; no additional greeting from the server. - (mew-imap2-set-status pnm "capability") - (mew-imap2-command-capability process pnm)) - ))) + (when (and gnutlsp starttlsp) + (let ((greeting (plist-get (cdr pro-plist) :greeting))) + (if (stringp greeting) (mew-imap2-filter process greeting))))))) (defun mew-summary-from-local-to-imap () "Copy messages in local folders under specified folder prefix diff --git a/elpa/mew-20251127.544/mew-key.el b/elpa/mew-20260425.817/mew-key.el similarity index 100% rename from elpa/mew-20251127.544/mew-key.el rename to elpa/mew-20260425.817/mew-key.el diff --git a/elpa/mew-20251127.544/mew-lang-jp.el b/elpa/mew-20260425.817/mew-lang-jp.el similarity index 100% rename from elpa/mew-20251127.544/mew-lang-jp.el rename to elpa/mew-20260425.817/mew-lang-jp.el diff --git a/elpa/mew-20251127.544/mew-lang-kr.el b/elpa/mew-20260425.817/mew-lang-kr.el similarity index 100% rename from elpa/mew-20251127.544/mew-lang-kr.el rename to elpa/mew-20260425.817/mew-lang-kr.el diff --git a/elpa/mew-20251127.544/mew-lang-latin.el b/elpa/mew-20260425.817/mew-lang-latin.el similarity index 97% rename from elpa/mew-20251127.544/mew-lang-latin.el rename to elpa/mew-20260425.817/mew-lang-latin.el index 4fe556f2..ef3d3eb7 100644 --- a/elpa/mew-20251127.544/mew-lang-latin.el +++ b/elpa/mew-20260425.817/mew-lang-latin.el @@ -24,7 +24,7 @@ (mew-latin-make-regex 'latin-iso8859-1 mew-latin01-list)) (defun mew-latin0-region (beg end) - (let* (charset ent to from ch lc conflict0 conflict1) + (let* (charset ent (to nil) (from nil) ch lc conflict0 conflict1) (save-restriction (narrow-to-region beg end) (setq conflict0 diff --git a/elpa/mew-20251127.544/mew-local.el b/elpa/mew-20260425.817/mew-local.el similarity index 99% rename from elpa/mew-20251127.544/mew-local.el rename to elpa/mew-20260425.817/mew-local.el index 8448478d..17ff217c 100644 --- a/elpa/mew-20251127.544/mew-local.el +++ b/elpa/mew-20260425.817/mew-local.el @@ -5,7 +5,8 @@ ;; Created: Dec 12, 2001 (eval-when-compile - (require 'mew-summary)) + (require 'mew-summary) + (require 'mew-env0)) (defvar mew-local-folder-alist-file ".mew-folder-alist") (defvar mew-local-folder-alist nil) diff --git a/elpa/mew-20251127.544/mew-mark.el b/elpa/mew-20260425.817/mew-mark.el similarity index 99% rename from elpa/mew-20251127.544/mew-mark.el rename to elpa/mew-20260425.817/mew-mark.el index 966e0246..9b39a9e2 100644 --- a/elpa/mew-20251127.544/mew-mark.el +++ b/elpa/mew-20260425.817/mew-mark.el @@ -234,7 +234,7 @@ cons pairs of folder name and message number." (defun mew-summary-mark-recover (mdb &optional refdb refs) (let ((opos (point)) (case-fold-search nil) - msg mrk new-ref ref-ent) + (msg nil) (mrk nil) new-ref ref-ent) (goto-char (point-min)) (dolist (ent mdb) (mew-set '(msg mrk) ent) diff --git a/elpa/mew-20251127.544/mew-message.el b/elpa/mew-20260425.817/mew-message.el similarity index 100% rename from elpa/mew-20251127.544/mew-message.el rename to elpa/mew-20260425.817/mew-message.el diff --git a/elpa/mew-20251127.544/mew-mime.el b/elpa/mew-20260425.817/mew-mime.el similarity index 99% rename from elpa/mew-20251127.544/mew-mime.el rename to elpa/mew-20260425.817/mew-mime.el index 297b7e6a..ab020019 100644 --- a/elpa/mew-20251127.544/mew-mime.el +++ b/elpa/mew-20260425.817/mew-mime.el @@ -18,8 +18,8 @@ (require 'mew-darwin)) (t (require 'mew-unix))) - (mew-no-warning-defun w3m-region) - (mew-no-warning-defun w3m-expand-file-name-as-url)) + (declare-function w3m-region "w3m.el") + (declare-function w3m-expand-file-name-as-url "w3m.el")) (defvar mew-process-file-alist nil) diff --git a/elpa/mew-20251127.544/mew-minibuf.el b/elpa/mew-20260425.817/mew-minibuf.el similarity index 100% rename from elpa/mew-20251127.544/mew-minibuf.el rename to elpa/mew-20260425.817/mew-minibuf.el diff --git a/elpa/mew-20251127.544/mew-mule.el b/elpa/mew-20260425.817/mew-mule.el similarity index 100% rename from elpa/mew-20251127.544/mew-mule.el rename to elpa/mew-20260425.817/mew-mule.el diff --git a/elpa/mew-20251127.544/mew-mule3.el b/elpa/mew-20260425.817/mew-mule3.el similarity index 100% rename from elpa/mew-20251127.544/mew-mule3.el rename to elpa/mew-20260425.817/mew-mule3.el diff --git a/elpa/mew-20251127.544/mew-net.el b/elpa/mew-20260425.817/mew-net.el similarity index 98% rename from elpa/mew-20251127.544/mew-net.el rename to elpa/mew-20260425.817/mew-net.el index c34ec147..d9522925 100644 --- a/elpa/mew-20251127.544/mew-net.el +++ b/elpa/mew-20260425.817/mew-net.el @@ -14,15 +14,16 @@ ;;; (defvar mew-port-db - '(("smtp" 25) - ("smtps" 465) ; RFC 8314 - ("pop3" 110) - ("pop3s" 995) - ("nntp" 119) - ("nntps" 563) - ("imap" 143) - ("imaps" 993) - ("submission" 587))) + '(("smtp" 25) + ("smtps" 465) + ("pop3" 110) + ("pop3s" 995) + ("nntp" 119) + ("nntps" 563) + ("imap" 143) + ("imaps" 993) + ("submission" 587) + ("submissions" 465))) ;; RFC 8314 (defun mew-serv-to-port (serv) (cond @@ -481,7 +482,7 @@ If called with `\\[universal-argument]', +queue is not flushed. In remote folders, visit an inbox folder and scan with `update'." (interactive "P") - (let (case proto inbox case:inbox mailbox) + (let ((case nil) (proto nil) inbox case:inbox mailbox) (mew-set '(case proto) (mew-summary-case-proto)) (setq inbox (mew-proto-inbox-folder proto case)) (cond diff --git a/elpa/mew-20251127.544/mew-nntp.el b/elpa/mew-20260425.817/mew-nntp.el similarity index 94% rename from elpa/mew-20251127.544/mew-nntp.el rename to elpa/mew-20260425.817/mew-nntp.el index b5e29b69..3ead9177 100644 --- a/elpa/mew-20251127.544/mew-nntp.el +++ b/elpa/mew-20260425.817/mew-nntp.el @@ -23,7 +23,7 @@ ;;; (defvar mew-nntp-info-list - '("server" "port" "process" "ssh-process" "ssl-process" "ssl-p" "status" + '("server" "port" "process" "ssh-process" "ssl-process" "secure" "status" "directive" "bnm" "mdb" "rtrs" "refs" "range" "rttl" "rcnt" "hlds" @@ -67,7 +67,7 @@ ;;; (defun mew-nntp-secure-p (pnm) - (or (mew-nntp-get-ssh-process pnm) (mew-nntp-get-ssl-p pnm))) + (mew-nntp-get-secure pnm)) (defun mew-nntp-command-mode-reader (pro pnm) (mew-net-status (mew-nntp-get-status-buf pnm) @@ -391,27 +391,26 @@ (defun mew-nntp-open (pnm case server port no-msg starttlsp) (let ((sprt (mew-*-to-port port)) - (sslnp (mew-ssl-native-p (mew-nntp-ssl case))) + (gnutlsp (mew-gnutls-p (mew-nntp-ssl case))) + (pro-plist (list nil)) pro tm) (condition-case emsg (progn (setq tm (run-at-time mew-nntp-timeout-time nil 'mew-nntp-timeout)) (or no-msg (message "Connecting to the NNTP server...")) - (setq pro (mew-open-network-stream pnm nil server sprt - 'nntp sslnp starttlsp case)) - (setq pro (car pro)) + (setq pro-plist (mew-open-network-stream pnm nil server sprt + 'nntp gnutlsp starttlsp case)) + (setq pro (car pro-plist)) (when (not (processp pro)) (signal 'quit nil)) (mew-process-silent-exit pro) (mew-set-process-cs pro mew-cs-text-for-net mew-cs-text-for-net) (or no-msg (message "Connecting to the NNTP server...done"))) (quit - (or no-msg (message "Cannot connect to the NNTP server")) - (setq pro nil)) + (or no-msg (message "Cannot connect to the NNTP server"))) (error - (or no-msg (message "%s, %s" (nth 1 emsg) (nth 2 emsg))) - (setq pro nil))) + (or no-msg (message "%s, %s" (nth 1 emsg) (nth 2 emsg))))) (if tm (cancel-timer tm)) - pro)) + pro-plist)) (defun mew-nntp-timeout () ;; Do not timeout if the NSM query pane is active. @@ -430,44 +429,46 @@ (user (mew-nntp-user case)) (port (mew-*-to-string (mew-nntp-port case))) (sshsrv (mew-nntp-ssh-server case)) - (sslp (mew-nntp-ssl case)) + (stunnelp (mew-stunnel-p (mew-nntp-ssl case))) (sslport (mew-nntp-ssl-port case)) - (sslnp (mew-ssl-native-p (mew-nntp-ssl case))) + (gnutlsp (mew-gnutls-p (mew-nntp-ssl case))) (starttlsp - (mew-ssl-starttls-p (mew-nntp-ssl case) - (mew-*-to-string (mew-nntp-port case)) - (mew-nntp-ssl-port case))) + (mew-starttls-p (mew-nntp-ssl case) + (mew-*-to-string (mew-nntp-port case)) + (mew-nntp-ssl-port case))) (newsgroup (mew-bnm-to-newsgroup bnm)) (pnm (mew-nntp-info-name case newsgroup)) (buf (get-buffer-create (mew-nntp-buffer-name pnm))) (no-msg (eq directive 'biff)) - process sshname sshpro sslname sslpro lport tls - virtual-info disp-info virtual) + process sshname sshpro sslname sslpro lport protocol pro-plist + virtual-info disp-info virtual secure) (if (mew-nntp-get-process pnm) (message "Another NNTP process is running. Try later") (cond - (sslnp + (gnutlsp (let ((serv (if starttlsp port sslport))) - (setq process (mew-nntp-open pnm case server serv no-msg starttlsp)))) + (setq pro-plist (mew-nntp-open pnm case server serv no-msg starttlsp)))) (sshsrv (setq sshpro (mew-open-ssh-stream case server port sshsrv)) (when sshpro (setq sshname (process-name sshpro)) (setq lport (mew-ssh-pnm-to-lport sshname)) (when lport - (setq process (mew-nntp-open pnm case "localhost" lport no-msg nil))))) - (sslp - (when starttlsp (setq tls mew-tls-nntp)) - (setq sslpro (mew-open-ssl-stream case server sslport tls)) + (setq pro-plist (mew-nntp-open pnm case "localhost" lport no-msg nil))))) + (stunnelp + (when starttlsp (setq protocol mew-stunnel-protocol-nntp)) + (setq sslpro (mew-open-stunnel-stream case server sslport protocol)) (when sslpro (setq sslname (process-name sslpro)) (setq lport (mew-ssl-pnm-to-lport sslname)) (when lport - (setq process (mew-nntp-open pnm case mew-ssl-localhost lport no-msg nil))))) + (setq pro-plist (mew-nntp-open pnm case mew-stunnel-localhost lport no-msg nil))))) (t - (setq process (mew-nntp-open pnm case server port no-msg nil)))) + (setq pro-plist (mew-nntp-open pnm case server port no-msg nil)))) + (setq process (car pro-plist)) (when process - (mew-summary-lock process "NNTPing" (or sshpro sslp)) + (setq secure (or sshpro stunnelp gnutlsp)) + (mew-summary-lock process "NNTPing" secure) (mew-sinfo-set-summary-form (mew-get-summary-form bnm)) (mew-sinfo-set-summary-column (mew-get-summary-column bnm)) (mew-sinfo-set-unread-mark nil) @@ -479,7 +480,7 @@ (mew-nntp-set-process pnm process) (mew-nntp-set-ssh-process pnm sshpro) (mew-nntp-set-ssl-process pnm sslpro) - (mew-nntp-set-ssl-p pnm sslp) + (mew-nntp-set-secure pnm secure) (mew-nntp-set-server pnm server) (mew-nntp-set-port pnm port) (mew-nntp-set-user pnm user) @@ -506,7 +507,7 @@ (when virtual (mew-nntp-set-status-buf pnm virtual) (with-current-buffer virtual - (mew-summary-lock process "NNTPing" (or sshpro sslp))))) + (mew-summary-lock process "NNTPing" (or sshpro stunnelp gnutlsp))))) ((eq directive 'scan) (mew-nntp-set-range pnm (nth 0 args)) (mew-nntp-set-get-body pnm (nth 1 args)) @@ -521,9 +522,9 @@ (set-process-sentinel process 'mew-nntp-sentinel) (set-process-filter process 'mew-nntp-filter) (set-process-buffer process buf) - (when sslnp - ;; GnuTLS requires a client-initiated command after the - ;; session is established or upgraded to use TLS because + (when (and gnutlsp starttlsp) + ;; open-network-stream requires a client-initiated command after the + ;; session is upgraded to use TLS because ;; no additional greeting from the server. (mew-nntp-command-mode-reader process pnm)) )))) diff --git a/elpa/mew-20251127.544/mew-nntp2.el b/elpa/mew-20260425.817/mew-nntp2.el similarity index 95% rename from elpa/mew-20251127.544/mew-nntp2.el rename to elpa/mew-20260425.817/mew-nntp2.el index 2f9b1716..2021b4c6 100644 --- a/elpa/mew-20251127.544/mew-nntp2.el +++ b/elpa/mew-20260425.817/mew-nntp2.el @@ -180,14 +180,14 @@ (defun mew-nntp2-open (pnm case server port starttlsp) (let ((sprt (mew-*-to-port port)) - (sslnp (mew-ssl-native-p (mew-nntp-ssl case))) + (gnutlsp (mew-gnutls-p (mew-nntp-ssl case))) pro tm) (condition-case emsg (progn (setq tm (run-at-time mew-nntp-timeout-time nil 'mew-nntp2-timeout)) (message "Connecting to the NNTP server...") (setq pro (mew-open-network-stream pnm nil server sprt - 'nntp sslnp starttlsp case)) + 'nntp gnutlsp starttlsp case)) (setq pro (car pro)) (when (not (processp pro)) (signal 'quit nil)) (mew-process-silent-exit pro) @@ -222,14 +222,14 @@ (sshsrv (mew-nntp-ssh-server case)) (sslp (mew-nntp-ssl case)) (sslport (mew-nntp-ssl-port case)) - (sslnp (mew-ssl-native-p (mew-nntp-ssl case))) + (gnutlsp (mew-gnutls-p (mew-nntp-ssl case))) (starttlsp - (mew-ssl-starttls-p (mew-nntp-ssl case) - (mew-*-to-string (mew-nntp-port case)) - (mew-nntp-ssl-port case))) + (mew-starttls-p (mew-nntp-ssl case) + (mew-*-to-string (mew-nntp-port case)) + (mew-nntp-ssl-port case))) process sshname sshpro sslname sslpro lport tls) (cond - (sslnp + (gnutlsp (let ((serv (if starttlsp port sslport))) (setq process (mew-nntp2-open pnm case server serv starttlsp)))) (sshsrv @@ -240,13 +240,13 @@ (when lport (setq process (mew-nntp2-open pnm case "localhost" lport nil))))) (sslp - (when starttlsp (setq tls mew-tls-nntp)) - (setq sslpro (mew-open-ssl-stream case server sslport tls)) + (when starttlsp (setq tls mew-stunnel-protocol-nntp)) + (setq sslpro (mew-open-stunnel-stream case server sslport tls)) (when sslpro (setq sslname (process-name sslpro)) (setq lport (mew-ssl-pnm-to-lport sslname)) (when lport - (setq process (mew-nntp2-open pnm case mew-ssl-localhost lport nil))))) + (setq process (mew-nntp2-open pnm case mew-stunnel-localhost lport nil))))) (t (setq process (mew-nntp2-open pnm case server port nil)))) (if (null process) @@ -274,9 +274,9 @@ (set-process-sentinel process 'mew-nntp2-sentinel) (set-process-filter process 'mew-nntp2-filter) (message "Posting in background...") - (when sslnp - ;; GnuTLS requires a client-initiated command after the - ;; session is established or upgraded to use TLS because + (when (and gnutlsp starttlsp) + ;; open-network-stream requires a client-initiated command after the + ;; session is upgraded to use TLS because ;; no additional greeting from the server. (mew-nntp-command-mode-reader process pnm)) ))) @@ -386,7 +386,7 @@ (qfld (mew-postq-folder case)) (oname (buffer-name)) (work (buffer-file-name)) - file-info file info nname) + file-info file (info nil) nname) (mew-local-folder-check qfld) (setq file-info (mew-queue-enqueue work qfld)) (mew-set '(file info) file-info) diff --git a/elpa/mew-20251127.544/mew-oauth2.el b/elpa/mew-20260425.817/mew-oauth2.el similarity index 98% rename from elpa/mew-20251127.544/mew-oauth2.el rename to elpa/mew-20260425.817/mew-oauth2.el index cd54f441..1dc5b86e 100644 --- a/elpa/mew-20251127.544/mew-oauth2.el +++ b/elpa/mew-20260425.817/mew-oauth2.el @@ -90,7 +90,7 @@ It serves http://localhost:PORT" (delete-process p))) (process-list)))) -(defun mew-oauth2-redirect-handler-sentinel (proc event) +(defun mew-oauth2-redirect-handler-sentinel (_proc _event) ) (defun mew-oauth2-redirect-handler-filter (proc string) @@ -139,7 +139,7 @@ It serves http://localhost:PORT" ;;; (defun mew-oauth2-get-access-token (url client-id client-secret redirect-url code verifier) - (let ((params (concat + (let ((params (concat "grant_type=authorization_code" "&code=" code "&code_verifier=" verifier @@ -157,7 +157,7 @@ It serves http://localhost:PORT" ;;; (defun mew-oauth2-refresh-access-token (url client-id client-secret refresh-token) - (let ((params (concat + (let ((params (concat "grant_type=refresh_token" "&client_id=" client-id "&client_secret=" client-secret @@ -224,7 +224,7 @@ It serves http://localhost:PORT" (mew-oauth2-redirect-url case) challenge (mew-oauth2-redirect-port case))) - (json (mew-oauth2-get-access-token + (json (mew-oauth2-get-access-token (mew-oauth2-token-url case) (mew-oauth2-client-id case) (mew-oauth2-client-secret case) diff --git a/elpa/mew-20251127.544/mew-passwd.el b/elpa/mew-20260425.817/mew-passwd.el similarity index 86% rename from elpa/mew-20251127.544/mew-passwd.el rename to elpa/mew-20260425.817/mew-passwd.el index 49f333a4..9a10bb00 100644 --- a/elpa/mew-20251127.544/mew-passwd.el +++ b/elpa/mew-20260425.817/mew-passwd.el @@ -6,6 +6,10 @@ ;;; Code: +(eval-when-compile + (declare-function auth-source-delete "auth-source.el") + (declare-function auth-source-forget+ "auth-source.el")) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Variables @@ -24,11 +28,7 @@ (defvar mew-passwd-encryption-name "GPG Encryption") (defvar mew-passwd-decryption-name "GPG Decryption") -;; t means a master password isn't cached but passwords are loaded. (defvar mew-passwd-master nil) -(defvar mew-passwd-master-asymmetric-encryption-command (list "-e" "--default-recipient-self")) -(defvar mew-passwd-master-symmetric-encryption-command (list "-c" "--cipher-algo" mew-passwd-cipher)) - (defvar mew-passwd-alist nil) (defvar mew-passwd-timer-id nil) (defvar mew-passwd-rendezvous nil) @@ -95,7 +95,7 @@ ;; Never get GnuPG passphrase. Rely on gpg-agent for caching. (setq found nil)) (t - (condition-case error + (condition-case nil (setq found (apply #'auth-source-search (nconc slist))) (error (setq found nil))))) @@ -128,7 +128,6 @@ ;; backends (i.e. auth-source-delete is noop). (let* ((epa-pinentry-mode 'loopback) (slist (mew-passwd-auth-source-parse-key key)) - (num (apply #'auth-source-forget+ (nconc slist))) (entry (apply #'auth-source-delete (nconc slist))) (save-function (plist-get (nth 0 entry) :save-function))) (when (functionp save-function) @@ -198,16 +197,11 @@ (let ((file (expand-file-name mew-passwd-file mew-conf-path))) (if (file-exists-p file) (setq mew-passwd-alist (mew-passwd-load)) - (mew-passwd-save "ask") ;; save nil and ask master twice - (mew-passwd-load))) ;; load new password + (mew-passwd-read-master-passwd))) (add-hook 'kill-emacs-hook 'mew-passwd-clean-up))))) (defun mew-passwd-clean-up () (remove-hook 'kill-emacs-hook 'mew-passwd-clean-up) - (when mew-passwd-master - (if (and (eq mew-master-passwd-encryption 'symmetric) (not (stringp mew-passwd-master))) - (mew-passwd-save "ask") ;; ask master twice at change from public key encryption to symmetric encryption - (mew-passwd-save))) (setq mew-passwd-master nil) (when (and mew-use-cached-passwd (not mew-use-master-passwd)) (setq mew-passwd-alist nil) @@ -245,6 +239,8 @@ (let ((pass (mew-read-passwd prompt))) (mew-passwd-set-passwd key pass) (mew-passwd-set-counter key 0) + (when mew-passwd-master + (mew-passwd-save)) pass))) (mew-read-passwd prompt))) @@ -260,7 +256,7 @@ (error "")))) (defun mew-passwd-read-passwd (prompt &optional encrypt-p) - (if (stringp mew-passwd-master) ; when mew-passwd-master is t, need to read passwd + (if mew-passwd-master (progn (mew-timing) mew-passwd-master) @@ -268,19 +264,26 @@ (unless encrypt-p (setq mew-passwd-master pass)) pass))) +(defun mew-passwd-read-master-passwd () + (catch 'loop + (while t + (let ((pass (mew-passwd-read-passwd2))) + (when pass + (setq mew-passwd-master pass) + (throw 'loop nil)))))) + +(defun mew-passwd-read-passwd2 () + (let ((pass1 (mew-read-passwd "New master password: ")) + (pass2 (mew-read-passwd "New master password again: "))) + (if (string= pass1 pass2) + pass1 + nil))) + (defun mew-passwd-change () "Change the master password." (interactive) - (cond - ((eq mew-master-passwd-encryption 'asymmetric) - (message "Master password for public key encrytion can't be changed.") - (mew-let-user-read)) - (t - (message "Master password for symmetric encrytion.") - (mew-let-user-read) - (setq mew-passwd-master nil) - (mew-passwd-save "ask") ;; save and ask master twice - (mew-passwd-load)))) ;; load new password + (setq mew-passwd-master nil) + (mew-passwd-read-master-passwd)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -307,7 +310,7 @@ (with-temp-buffer (catch 'loop (dotimes (_i N) ;; prevent byte-compile warning - (setq mew-passwd-master t) ;; + (when mew-passwd-agent-hack (mew-passwd-clear-passphrase file)) (setq pro (apply 'mew-start-process-lang mew-passwd-decryption-name (current-buffer) @@ -316,7 +319,6 @@ (set-process-filter pro 'mew-passwd-filter) (set-process-sentinel pro 'mew-passwd-sentinel) (mew-passwd-rendezvous pro) - (if (eq mew-master-passwd-encryption 'asymmetric) (setq mew-passwd-master t)) ; drop passphrase, but need to save a password file (unless (file-exists-p tfile) (setq mew-passwd-master nil)) (when mew-passwd-master @@ -331,22 +333,17 @@ (mew-passwd-delete-file tfile)) pwds)) -;; "pinentry-mode" is a string for pinentry-mode option of -;; GnuPG2. "loopback" or "ask" is useful. -(defun mew-passwd-save (&optional pinentry-mode) +(defun mew-passwd-save () (let* ((process-connection-type mew-connection-type2) (file (expand-file-name mew-passwd-file mew-conf-path)) (tfile (mew-make-temp-name "gpg-save")) + (args (mew-passwd-adjust-args (list "-c" + "--cipher-algo" mew-passwd-cipher + "--yes" "--output" file tfile))) (N mew-passwd-repeat) - pro args) + pro) (if (file-exists-p file) (rename-file file (concat file mew-backup-suffix) 'override)) - (cond - ((eq mew-master-passwd-encryption 'symmetric) - (setq args (mew-passwd-adjust-args (append mew-passwd-master-symmetric-encryption-command (list "--yes" "--output" file tfile)) pinentry-mode))) - ((eq mew-master-passwd-encryption 'asymmetric) - (setq args (mew-passwd-adjust-args (append mew-passwd-master-asymmetric-encryption-command (list "--yes" "--output" file tfile)) pinentry-mode))) - (t (error "unknown mew-use-master-passwd-encryption"))) (unwind-protect (with-temp-buffer (pp mew-passwd-alist (current-buffer)) @@ -375,6 +372,7 @@ ;;; (defun mew-passwd-filter (process string) + (mew-passwd-debug "passwd filter" string) (let* ((name (process-name process)) (regex (concat "^" (regexp-quote mew-passwd-encryption-name))) (encrypt-p (string-match regex name))) @@ -413,11 +411,32 @@ (write-region (point-min) (point-max) file nil 'no-msg))) (delete-file file))) -(defun mew-passwd-adjust-args (args &optional pinentry-mode) +(defun mew-passwd-get-cache-id (file) + (with-temp-buffer + (apply 'call-process mew-prog-passwd nil t nil (mew-passwd-adjust-args (list "--list-packets" file))) + (goto-char (point-min)) + (when (re-search-forward "salt \\([^ ,]+\\)," nil t) + (concat "S" (match-string 1))))) + +(defun mew-passwd-clear-passphrase (file) + (when (file-exists-p file) + (let ((cache-id (mew-passwd-get-cache-id file))) + (with-temp-buffer + (insert "CLEAR_PASSPHRASE " cache-id "\n") + (call-process-region (point-min) (point-max) "gpg-connect-agent"))))) + +(defun mew-passwd-adjust-args (args) (if mew-passwd-agent-hack - (append '("--no-symkey-cache" "--pinentry-mode") (cons (if pinentry-mode pinentry-mode "loopback") args)) + ;; password is asked just once when encrypting + (cons "--pinentry-mode" (cons "loopback" args)) args)) +(defun mew-passwd-debug (label string) + (when (mew-debug 'passwd-debug) + (with-current-buffer (get-buffer-create mew-buffer-debug) + (goto-char (point-max)) + (insert (format "\n<%s>\n%s\n" label string))))) + (provide 'mew-passwd) ;;; Copyright Notice: diff --git a/elpa/mew-20251127.544/mew-pgp.el b/elpa/mew-20260425.817/mew-pgp.el similarity index 99% rename from elpa/mew-20251127.544/mew-pgp.el rename to elpa/mew-20260425.817/mew-pgp.el index 9a33171b..d02ff966 100644 --- a/elpa/mew-20251127.544/mew-pgp.el +++ b/elpa/mew-20260425.817/mew-pgp.el @@ -800,7 +800,7 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG. Set 4 if GNUPG2.") (defun mew-old-pgp-sign (cs &optional syntax) (let ((file1 (mew-make-temp-name)) (mew-prog-pgps-arg mew-prog-old-pgps-arg) - file2 fmc errmsg charset) + (file2 nil) fmc (errmsg nil) charset) (goto-char (mew-header-end)) (forward-line) (unless cs @@ -833,7 +833,7 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG. Set 4 if GNUPG2.") (let ((file1 (mew-make-temp-name)) (mew-prog-pgps-arg mew-prog-old-pgps-arg) (decrypters (mew-header-parse-address-list mew-destination:-list)) - file2 file3 fc errmsg charset) + (file2 nil) (file3 nil) fc (errmsg nil) charset) (goto-char (mew-header-end)) (forward-line) (unless cs @@ -979,7 +979,7 @@ Set 1 if 5. Set 2 if 6. Set 3 if GNUPG. Set 4 if GNUPG2.") (syntax (mew-cache-decode-syntax cache)) (file (mew-expand-msg fld msg)) mew-inherit-decode-signer - file1 file2 result xmew win start cte) + file1 (file2 nil) result xmew win start cte) (with-temp-buffer (mew-frwlet mew-cs-text-for-read mew-cs-text-for-write (mew-insert-file-contents file) diff --git a/elpa/mew-20251127.544/mew-pick.el b/elpa/mew-20260425.817/mew-pick.el similarity index 100% rename from elpa/mew-20251127.544/mew-pick.el rename to elpa/mew-20260425.817/mew-pick.el diff --git a/elpa/mew-20251127.544/mew-pkg.el b/elpa/mew-20260425.817/mew-pkg.el similarity index 53% rename from elpa/mew-20251127.544/mew-pkg.el rename to elpa/mew-20260425.817/mew-pkg.el index 163f196d..13a940eb 100644 --- a/elpa/mew-20251127.544/mew-pkg.el +++ b/elpa/mew-20260425.817/mew-pkg.el @@ -1,7 +1,7 @@ ;; -*- no-byte-compile: t; lexical-binding: nil -*- -(define-package "mew" "20251127.544" +(define-package "mew" "20260425.817" "Messaging in the Emacs World." () :url "https://github.com/kazu-yamamoto/Mew" - :commit "505fa0a42dd16a361bd08030318725ddc8bd8954" - :revdesc "505fa0a42dd1") + :commit "25bc9a8f77509ed9227818a5bc3f86301ad78153" + :revdesc "25bc9a8f7750") diff --git a/elpa/mew-20251127.544/mew-pop.el b/elpa/mew-20260425.817/mew-pop.el similarity index 94% rename from elpa/mew-20251127.544/mew-pop.el rename to elpa/mew-20260425.817/mew-pop.el index 68469cb6..503c087c 100644 --- a/elpa/mew-20251127.544/mew-pop.el +++ b/elpa/mew-20260425.817/mew-pop.el @@ -24,7 +24,7 @@ ;;; (defvar mew-pop-info-list - '("server" "port" "process" "ssh-process" "ssl-process" "ssl-p" "status" + '("server" "port" "process" "ssh-process" "ssl-process" "secure" "status" "directive" "bnm" "mdb" "rtrs" "dels" "refs" "rmvs" "kils" "left" "uidl" "range" "rttl" "rcnt" "dttl" "dcnt" "hlds" @@ -84,7 +84,7 @@ ;;; (defun mew-pop-secure-p (pnm) - (or (mew-pop-get-ssh-process pnm) (mew-pop-get-ssl-p pnm))) + (mew-pop-get-secure pnm)) (defun mew-pop-command-capa (pro pnm) (mew-net-status (mew-pop-get-status-buf pnm) @@ -624,27 +624,26 @@ (defun mew-pop-open (pnm case server port no-msg starttlsp) (let ((sprt (mew-*-to-port port)) - (sslnp (mew-ssl-native-p (mew-pop-ssl case))) + (gnutlsp (mew-gnutls-p (mew-pop-ssl case))) + (pro-plist (list nil)) pro tm) (condition-case emsg (progn (setq tm (run-at-time mew-pop-timeout-time nil 'mew-pop-timeout)) (or no-msg (message "Connecting to the POP server...")) - (setq pro (mew-open-network-stream pnm nil server sprt - 'pop sslnp starttlsp case)) - (setq pro (car pro)) + (setq pro-plist (mew-open-network-stream pnm nil server sprt + 'pop gnutlsp starttlsp case)) + (setq pro (car pro-plist)) (when (not (processp pro)) (signal 'quit nil)) (mew-process-silent-exit pro) (mew-set-process-cs pro mew-cs-text-for-net mew-cs-text-for-net) (or no-msg (message "Connecting to the POP server...done"))) (quit - (or no-msg (message "Cannot connect to the POP server")) - (setq pro nil)) + (or no-msg (message "Cannot connect to the POP server"))) (error - (or no-msg (message "%s, %s" (nth 1 emsg) (nth 2 emsg))) - (setq pro nil))) + (or no-msg (message "%s, %s" (nth 1 emsg) (nth 2 emsg))))) (if tm (cancel-timer tm)) - pro)) + pro-plist)) (defun mew-pop-timeout () ;; Do not timeout if the NSM query pane is active. @@ -658,57 +657,57 @@ ;;; Launcher ;;; -(defvar mew--gnutls-pop-greeting nil) - (defun mew-pop-retrieve (case directive bnm &rest args) ;; in +inbox (let* ((server (mew-pop-server case)) (user (mew-pop-user case)) (port (mew-*-to-string (mew-pop-port case))) (sshsrv (mew-pop-ssh-server case)) - (sslp (mew-pop-ssl case)) + (stunnelp (mew-stunnel-p (mew-pop-ssl case))) (sslport (mew-pop-ssl-port case)) - (sslnp (mew-ssl-native-p (mew-pop-ssl case))) + (gnutlsp (mew-gnutls-p (mew-pop-ssl case))) (starttlsp - (mew-ssl-starttls-p (mew-pop-ssl case) - (mew-*-to-string (mew-pop-port case)) - (mew-pop-ssl-port case))) + (mew-starttls-p (mew-pop-ssl case) + (mew-*-to-string (mew-pop-port case)) + (mew-pop-ssl-port case))) (proxysrv (mew-pop-proxy-server case)) (proxyport (mew-pop-proxy-port case)) (pnm (mew-pop-info-name case)) (buf (get-buffer-create (mew-pop-buffer-name pnm))) (no-msg (eq directive 'biff)) - process sshname sshpro sslname sslpro lport tls - virtual-info disp-info virtual) + process sshname sshpro sslname sslpro lport protocol pro-plist + virtual-info disp-info virtual secure) (if (mew-pop-get-process pnm) (message "Another POP process is running. Try later") (cond - (sslnp + (gnutlsp (let ((serv (if starttlsp port sslport))) - (setq process (mew-pop-open pnm case server serv no-msg starttlsp)))) + (setq pro-plist (mew-pop-open pnm case server serv no-msg starttlsp)))) (sshsrv (setq sshpro (mew-open-ssh-stream case server port sshsrv)) (when sshpro (setq sshname (process-name sshpro)) (setq lport (mew-ssh-pnm-to-lport sshname)) (when lport - (setq process (mew-pop-open pnm case "localhost" lport no-msg nil))))) - (sslp - (when starttlsp (setq tls mew-tls-pop)) - (setq sslpro (mew-open-ssl-stream case server sslport tls)) + (setq pro-plist (mew-pop-open pnm case "localhost" lport no-msg nil))))) + (stunnelp + (when starttlsp (setq protocol mew-stunnel-protocol-pop)) + (setq sslpro (mew-open-stunnel-stream case server sslport protocol)) (when sslpro (setq sslname (process-name sslpro)) (setq lport (mew-ssl-pnm-to-lport sslname)) (when lport - (setq process (mew-pop-open pnm case mew-ssl-localhost lport no-msg nil))))) + (setq pro-plist (mew-pop-open pnm case mew-stunnel-localhost lport no-msg nil))))) (proxysrv - (setq process (mew-pop-open pnm case proxysrv proxyport no-msg nil))) + (setq pro-plist (mew-pop-open pnm case proxysrv proxyport no-msg nil))) (t - (setq process (mew-pop-open pnm case server port no-msg nil)))) + (setq pro-plist (mew-pop-open pnm case server port no-msg nil)))) + (setq process (car pro-plist)) (if (null process) (if (eq directive 'exec) (mew-summary-visible-buffer bnm)) - (mew-summary-lock process "POPing" (or sshpro sslp)) + (setq secure (or sshpro stunnelp gnutlsp)) + (mew-summary-lock process "POPing" secure) (mew-sinfo-set-summary-form (mew-get-summary-form bnm)) (mew-sinfo-set-summary-column (mew-get-summary-column bnm)) (mew-sinfo-set-unread-mark nil) @@ -720,7 +719,7 @@ (mew-pop-set-process pnm process) (mew-pop-set-ssh-process pnm sshpro) (mew-pop-set-ssl-process pnm sslpro) - (mew-pop-set-ssl-p pnm sslp) + (mew-pop-set-secure pnm secure) (mew-pop-set-server pnm server) (mew-pop-set-port pnm port) (mew-pop-set-user pnm user) @@ -756,7 +755,7 @@ (when virtual (mew-pop-set-status-buf pnm virtual) (with-current-buffer virtual - (mew-summary-lock process "POPing" (or sshpro sslp))))) + (mew-summary-lock process "POPing" (or sshpro stunnelp gnutlsp))))) ((eq directive 'scan) (mew-pop-set-range pnm (nth 0 args)) (mew-pop-set-get-body pnm (nth 1 args)) @@ -775,15 +774,9 @@ (set-process-sentinel process 'mew-pop-sentinel) (set-process-filter process 'mew-pop-filter) (set-process-buffer process buf) - (when sslnp - ;; GnuTLS receives POP greeting in its internals - ;; and passes it as a return value. - ;; We store the value in the variable mew--gnutls-pop-greeting - ;; and pass it to the filter to process the greeting. - (mew-pop-filter process - (string-replace "\r\n" "\n" - mew--gnutls-pop-greeting))) - )))) + (when (and gnutlsp starttlsp) + (let ((greeting (plist-get (cdr pro-plist) :greeting))) + (if (stringp greeting) (mew-pop-filter process greeting)))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; diff --git a/elpa/mew-20251127.544/mew-refile.el b/elpa/mew-20260425.817/mew-refile.el similarity index 100% rename from elpa/mew-20251127.544/mew-refile.el rename to elpa/mew-20260425.817/mew-refile.el diff --git a/elpa/mew-20251127.544/mew-scan.el b/elpa/mew-20260425.817/mew-scan.el similarity index 97% rename from elpa/mew-20251127.544/mew-scan.el rename to elpa/mew-20260425.817/mew-scan.el index 1b06d3f0..d5fbcc8a 100644 --- a/elpa/mew-20251127.544/mew-scan.el +++ b/elpa/mew-20260425.817/mew-scan.el @@ -8,7 +8,22 @@ (require 'mew) (eval-when-compile - (require 'mew-env0)) + (require 'mew-env0) + (declare-function MEW-BODY "mew-scan.el") + (declare-function MEW-CC "mew-scan.el") + (declare-function MEW-CT "mew-scan.el") + (declare-function MEW-CTE "mew-scan.el") + (declare-function MEW-DATE "mew-scan.el") + (declare-function MEW-FLD "mew-scan.el") + (declare-function MEW-FROM "mew-scan.el") + (declare-function MEW-ID "mew-scan.el") + (declare-function MEW-IRT "mew-scan.el") + (declare-function MEW-NUM "mew-scan.el") + (declare-function MEW-REF "mew-scan.el") + (declare-function MEW-SUBJ "mew-scan.el") + (declare-function MEW-TO "mew-scan.el") + (declare-function MEW-UID "mew-scan.el") + (declare-function MEW-XREF "mew-scan.el")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; diff --git a/elpa/mew-20251127.544/mew-search.el b/elpa/mew-20260425.817/mew-search.el similarity index 99% rename from elpa/mew-20251127.544/mew-search.el rename to elpa/mew-20260425.817/mew-search.el index 164e874e..125bc746 100644 --- a/elpa/mew-20251127.544/mew-search.el +++ b/elpa/mew-20260425.817/mew-search.el @@ -122,7 +122,8 @@ with a search method." (name (mew-search-get-name ent)) (canon-func (mew-search-get-func-canonicalize-pattern ent)) (flt-func (mew-search-get-func-filter ent)) - vfolder opattern pattern dfunc file opts rttl file-rttl flds filter) + (file nil) (rttl nil) + vfolder opattern pattern dfunc opts file-rttl flds filter) (if (not (fboundp func)) (message "This command cannot be used") (if ask-folder diff --git a/elpa/mew-20251127.544/mew-smime.el b/elpa/mew-20260425.817/mew-smime.el similarity index 99% rename from elpa/mew-20251127.544/mew-smime.el rename to elpa/mew-20260425.817/mew-smime.el index c267c2c0..84d3b0df 100644 --- a/elpa/mew-20251127.544/mew-smime.el +++ b/elpa/mew-20260425.817/mew-smime.el @@ -248,7 +248,7 @@ (defun mew-encode-smime (type cte decrypters) (let ((file1 (mew-save-transfer-form (point-min) (point-max) nil cte)) - file2 errmsg file2-errmsg) + (file2 nil) (errmsg nil) file2-errmsg) (cond ((string= type mew-ct-smm-sig) (setq file2-errmsg (mew-smime-sign file1))) diff --git a/elpa/mew-20251127.544/mew-smtp.el b/elpa/mew-20260425.817/mew-smtp.el similarity index 70% rename from elpa/mew-20251127.544/mew-smtp.el rename to elpa/mew-20260425.817/mew-smtp.el index 2b8084e7..e0075369 100644 --- a/elpa/mew-20251127.544/mew-smtp.el +++ b/elpa/mew-20260425.817/mew-smtp.el @@ -28,11 +28,11 @@ "server" "port" "ssh-server" "user" "auth-user" "auth-list" "helo-domain" - "status" "process" "ssh-process" "ssl-process" "ssl-p" + "status" "process" "ssh-process" "ssl-process" "secure" "qfld" "messages" ;; parameters used internally and should be initialized "string" "error" "auth-selected" "timer" "cont" "from" "sender" - "done" "imapp" "capa" "fallback")) + "done" "imapp" "capa")) (mew-info-defun "mew-smtp-" mew-smtp-info-list) @@ -350,7 +350,7 @@ (defconst mew-smtp-info-prefix "mew-smtp-info-") -(defun mew-smtp-info-name (case &optional fallbacked) +(defun mew-smtp-info-name (case) (let ((server (mew-smtp-server case)) (port (mew-*-to-string (mew-smtp-port case))) (user (mew-smtp-user case)) @@ -359,11 +359,6 @@ (if user (setq name (concat name user "@" server)) (setq name (concat name server))) - (when (and (not fallbacked) - mew-use-submission ;; xxx to be deleted - (fboundp 'make-network-process) - (string= port "smtp")) - (setq port "submission")) (unless (mew-port-equal port mew-smtp-port) (setq name (concat name ":" port))) (if sshsrv @@ -396,191 +391,10 @@ ;;; Opening SMTP ;;; -(defvar mew-use-submission nil) - -(defvar mew-smtp-submission-timeout 10) -(defun mew-smtp-submission-timeout (pro) - (when (and (processp pro) (eq (process-status pro) 'connect)) - (mew-smtp-sentinel pro "time out - failed\n"))) - -(defvar mew-smtp-submission-family 'ipv4) - -;;; XXX: (mew-open-network-stream) always returns a list -;; and is also used for non-SMTP protocols. -;;; XXX: port must be resolved by using mew-serv-to-port -;; because some service names are not in /etc/services. -;; mew-serv-to-port uses mew-port-db. -(defvar mew--advice-tls-parameters-plist nil) - -(defun mew--advice-filter-args-gnutls-negotiate (&rest args) - (nconc (car args) mew--advice-tls-parameters-plist)) - -(defun mew-open-network-stream (name buf server port proto sslnp starttlsp case) - (let* ((tun-type nil) - (status-msg (format "Opening a %s connection %s%s%s..." - (if sslnp "TLS" "TCP") - (if sslnp "(GnuTLS" "") - (if sslnp - (if starttlsp ", STARTTLS)" ")") - "") - (if (eq tun-type 'ssh) " over SSH" - ""))) - family nowait pro tlsparams) - ;; SMTP-specific - (when (and (eq proto 'smtp) mew-inherit-submission) - (setq family mew-smtp-submission-family) - (setq nowait t)) - ;; TLS does not work for Unix-domain socket for now. - (when (and (not sslnp) - (stringp port) (string-match "^/" port)) - (setq family 'local) - (setq server 'local)) - (cond - ;; Both GnuTLS and NSM are mandatory for 'native. - ((and sslnp (or (not (fboundp 'gnutls-available-p)) - (not (gnutls-available-p)) - (not (fboundp 'gnutls-boot-parameters)) - (not (fboundp 'nsm-level)))) - (setq pro - (list nil - :error t - :status-msg - (concat status-msg - "FAILED (GnuTLS or NSM not available)")))) - (sslnp - (let ((hostname (puny-encode-domain server)) - ;; Note: on Emacs 26.3 and prior GnuTLS always uses - ;; the system-wide default path first even if - ;; trustfiles is specified. - (trustfiles (mew-ssl-trustfiles case)) - (nsm-noninteractive nil) - (network-security-level network-security-level)) - (when (eq (mew-ssl-verify-level case) 0) - ;; Forcibly disable verification. - (setq network-security-level 'low)) - (setq tlsparams - (cons 'gnutls-x509pki - ;; XXX: (gnutls-boot-parameters) returns - ;; :priority key instead of :priority-string - ;; while (gnutls-negotiate) accepts - ;; :priority-string. To handle this odd - ;; mismatch, create :priority-string in the - ;; result of (gnutls-boot-parameters) here. - (let ((boot-params - (gnutls-boot-parameters - :type 'gnutls-x509pki - :keylist (mew-ssl-client-keycert-list case) - :trustfiles (mew-ssl-trustfiles case) - :priority-string (mew-ssl-algorithm-priority case) - :min-prime-bits mew-ssl-min-prime-bits - ;; - ;; mew-ssl-verify-error should be nil - ;; to defer verification to NSM. Note - ;; that gnutls-verify-error overrides - ;; verify-error when it is nil. - ;; Setting gnutls-verify-error to t is - ;; also discouraged. - ;; - :verify-error mew-ssl-verify-error - :hostname hostname))) - (plist-put boot-params - :priority-string - (plist-get boot-params :priority))))) - ;; debug output: TLS params - (funcall (intern (concat "mew-" (symbol-name proto) "-debug")) - (format "TLS proto=%s, server=%s:%s, starttlsp=%s" - proto hostname port starttlsp) - (format "verify-level=%s, network-security-level=%s, nowait=%s, tlsparams=%s" - (mew-ssl-verify-level case) network-security-level - nowait - (apply #'concat (mapcar (lambda (a) (format "%s " a)) tlsparams)))) - (let ((type (if starttlsp 'starttls 'tls))) - (with-temp-message status-msg - ;; XXX: (open-network-stream) does not pass tlsparams - ;; to (gnutls-negotiate) to start STARTTLS. As a - ;; workaround, add an advice to forcibly append the - ;; parameters. This should be fixed in - ;; (open-network-stream). - (setq mew--advice-tls-parameters-plist (cdr tlsparams)) - (advice-add 'gnutls-negotiate - :filter-args #'mew--advice-filter-args-gnutls-negotiate) - ;; - ;; Override key functions when using a tunnel. - (setq pro (open-network-stream - name buf server port - :type type - :return-list t - :nowait nowait - :always-query-capabilities - (mew-starttls-get-param proto :always-query-capabilities nil) - :capability-command - (mew-starttls-get-param proto :capability-command t) - :end-of-capability - (mew-starttls-get-param proto :end-of-capability t) - :end-of-command - (mew-starttls-get-param proto :end-of-command t) - :success - (mew-starttls-get-param proto :success t) - :starttls-function - (mew-starttls-get-param proto :starttls-function nil))) - (advice-remove 'gnutls-negotiate - #'mew--advice-filter-args-gnutls-negotiate) - ;; - ;; When a validation error occurs, (car pro) will be nil. - ;; - (let ((plainp (eq 'plain (plist-get (cdr pro) :type))) - (greeting (plist-get (cdr pro) :greeting)) - (openp (and (car pro) - (eq 'open (process-status (car pro))))) - ;; Falling back to a plain connection is allowed - ;; only when verify-level < 2. - (needtlsp (and starttlsp - (> (mew-ssl-verify-level case) 1)))) - (cond - ((not openp) - (let ((msg (plist-get (cdr pro) :error))) - (setq pro (list nil - :error t - :status-msg - (concat status-msg "FAILED: " msg))))) - ((and plainp needtlsp) - (delete-process (car pro)) - (setq pro (list nil - :error t - :status-msg - (concat status-msg "FAILED")))) - (t - (setq pro (list - (car pro) - :error nil)) - (cond - ((eq proto 'pop) - (setq mew--gnutls-pop-greeting greeting)) - ((eq proto 'imap) - (setq mew--gnutls-imap-greeting greeting)))))))))) - (t - (with-temp-message status-msg - (let ((params (list :name name :buffer buf - :service port :family family - :nowait nowait)) - ;; :host will be ignored when family is 'local. - (host (if (not (eq family 'local)) - (list :host server)))) - (setq pro (list - (apply #'make-network-process (nconc params host)) - :greeting nil - :capabilities nil - :type 'plain - :error nil)))))) - (if (and (eq proto 'smtp) nowait) - (run-at-time mew-smtp-submission-timeout nil 'mew-smtp-submission-timeout pro)) - (when (plist-get (cdr pro) :error) - (message (plist-get (cdr pro) :status-msg))) - pro)) - (defun mew-smtp-open (pnm case server port starttlsp) (let ((sprt (mew-*-to-port port)) - (sslnp (mew-ssl-native-p (mew-smtp-ssl case))) + (gnutlsp (mew-gnutls-p (mew-smtp-ssl case))) + (pro-plist (list nil)) pro tm) ;; xxx some OSes do not define "submission", sigh. (when (and (stringp sprt) (string= sprt "submission")) @@ -589,26 +403,19 @@ (progn (setq tm (run-at-time mew-smtp-timeout-time nil 'mew-smtp-timeout)) (message "Connecting to the SMTP server...") - (setq pro (mew-open-network-stream pnm nil server sprt - 'smtp sslnp starttlsp case)) - (when (and sslnp starttlsp) - (mew-smtp-debug "*GREETING*" - (plist-get (cdr pro) :greeting)) - (mew-smtp-debug "*CAPABILITIES*" - (plist-get (cdr pro) :capabilities))) - (setq pro (car pro)) + (setq pro-plist (mew-open-network-stream pnm nil server sprt + 'smtp gnutlsp starttlsp case)) + (setq pro (car pro-plist)) (when (not (processp pro)) (signal 'quit nil)) (mew-process-silent-exit pro) (mew-set-process-cs pro mew-cs-text-for-net mew-cs-text-for-net) (message "Connecting to the SMTP server...done")) (quit - (setq pro nil) (message "Cannot connect to the SMTP server")) (error - (setq pro nil) (message "%s, %s" (nth 1 emsg) (nth 2 emsg)))) (if tm (cancel-timer tm)) - pro)) + pro-plist)) (defun mew-smtp-timeout () ;; Do not timeout if the NSM query pane is active. @@ -622,113 +429,79 @@ ;;; Launcher ;;; -(defun mew-smtp-send-message (case qfld msgs &optional fallbacked) +(defun mew-smtp-send-message (case qfld msgs) (let ((server (mew-smtp-server case)) (user (mew-smtp-user-only case)) (port (mew-*-to-string (mew-smtp-port case))) - (pnm (mew-smtp-info-name case fallbacked)) + (pnm (mew-smtp-info-name case)) (sshsrv (mew-smtp-ssh-server case)) - (sslp (mew-smtp-ssl case)) + (stunnelp (mew-stunnel-p (mew-smtp-ssl case))) (sslport (mew-*-to-string (mew-smtp-ssl-port case))) - (sslnp (mew-ssl-native-p (mew-smtp-ssl case))) + (gnutlsp (mew-gnutls-p (mew-smtp-ssl case))) (starttlsp - (mew-ssl-starttls-p (mew-smtp-ssl case) - (mew-*-to-string (mew-smtp-port case)) - (mew-smtp-ssl-port case))) - mew-inherit-submission - process sshname sshpro sslname sslpro lport tlsp tls fallback) - (cond - ((and (not sslnp) sslp starttlsp) - (setq tlsp t) - ;; let stunnel know that a wrapper protocol is SMTP - (setq tls mew-tls-smtp))) - ;; a fallback: "submission" -> "smtp" - ;; mew-smtp-port is "smtp" and mew-use-submission is t on Emacs 22 - (when (and (or (not sslp) starttlsp tlsp) - (not fallbacked) - mew-use-submission - (fboundp 'make-network-process) ;; Emacs 22 or later - (mew-port-equal port "smtp")) - (setq port "submission") - (setq fallback t) - (when (and sslp (not sslnp) (not tlsp)) - ;; TLS uses stunnel. So, we should not use non-blocking connect. - ;; Timeout should be carried out by stunnel. - (setq mew-inherit-submission t)) - (if (mew-port-equal sslport "smtp") - (setq sslport "submission"))) + (mew-starttls-p (mew-smtp-ssl case) + (mew-*-to-string (mew-smtp-port case)) + (mew-smtp-ssl-port case))) + process sshname sshpro sslname sslpro lport protocol pro-plist secure) (cond - (sslnp + (gnutlsp (let ((serv (if starttlsp port sslport))) - (setq process (mew-smtp-open pnm case server serv starttlsp)))) + (setq pro-plist (mew-smtp-open pnm case server serv starttlsp)))) (sshsrv (setq sshpro (mew-open-ssh-stream case server port sshsrv)) (when sshpro (setq sshname (process-name sshpro)) (setq lport (mew-ssh-pnm-to-lport sshname)) (when lport - (setq process (mew-smtp-open pnm case "localhost" lport nil))))) - (sslp - (setq sslpro (mew-open-ssl-stream case server sslport tls)) + (setq pro-plist (mew-smtp-open pnm case "localhost" lport nil))))) + (stunnelp + (when starttlsp (setq protocol mew-stunnel-protocol-smtp)) + (setq sslpro (mew-open-stunnel-stream case server sslport protocol)) (when sslpro (setq sslname (process-name sslpro)) (setq lport (mew-ssl-pnm-to-lport sslname)) (when lport - (setq process (mew-smtp-open pnm case mew-ssl-localhost lport nil))))) + (setq pro-plist (mew-smtp-open pnm case mew-stunnel-localhost lport nil))))) (t - (setq process (mew-smtp-open pnm case server port nil)))) + (setq pro-plist (mew-smtp-open pnm case server port nil)))) + (setq process (car pro-plist)) (if (null process) (cond ((and sshsrv (null sshpro)) (message "Cannot create to the SSH connection")) - (sslnp + (gnutlsp (message "Cannot open an SSL/TLS (GnuTLS) connection")) - ((and sslp (null sslpro)) + ((and stunnelp (null sslpro)) (message "Cannot create to the SSL/TLS connection")) (t - (if (and (not (eq server 'local)) - (or (not sslp) tlsp) - (not fallbacked) - mew-use-submission - (fboundp 'make-network-process) - (mew-port-equal port "submission")) - (progn - ;; make-network-process with :nowait t sometime - ;; returns nil, why? - (mew-smtp-send-message case qfld msgs t) - (mew-info-clean-up pnm)) - (message "Cannot connect to the SMTP server")))) + (message "Cannot connect to the SMTP server"))) + (setq secure (or sshpro stunnelp gnutlsp)) (mew-info-clean-up pnm mew-smtp-info-list-clean-length) (mew-smtp-set-case pnm case) (mew-smtp-set-qfld pnm qfld) (mew-smtp-set-messages pnm msgs) (mew-smtp-set-server pnm server) - (if sslp - (mew-smtp-set-port pnm sslport) - (mew-smtp-set-port pnm port)) + (mew-smtp-set-port pnm port) (mew-smtp-set-process pnm process) (mew-smtp-set-ssh-server pnm sshsrv) (mew-smtp-set-ssh-process pnm sshpro) (mew-smtp-set-ssl-process pnm sslpro) - (mew-smtp-set-ssl-p pnm sslp) + (mew-smtp-set-secure pnm secure) (mew-smtp-set-helo-domain pnm (mew-smtp-helo-domain case)) (mew-smtp-set-user pnm user) (mew-smtp-set-auth-user pnm (mew-smtp-user case)) (mew-smtp-set-auth-list pnm (mew-smtp-auth-list case)) (mew-smtp-set-status pnm "greeting") - (mew-smtp-set-fallback pnm fallback) ;; (set-process-buffer process nil) (set-process-sentinel process 'mew-smtp-sentinel) (set-process-filter process 'mew-smtp-filter) (message "Sending in background...") ;; - (when sslnp - ;; GnuTLS requires a client-initiated command after the - ;; session is established or upgraded to use TLS because - ;; no additional greeting from the server. - (mew-smtp-set-status pnm "ehlo") - (mew-smtp-command-ehlo process pnm))))) + (when (and gnutlsp starttlsp) + (let ((greeting (plist-get (cdr pro-plist) :greeting))) + (if (stringp greeting) (mew-smtp-filter process greeting))))))) + (defun mew-smtp-flush-queue (case &optional qfld) (let (msgs) @@ -788,11 +561,6 @@ (defun mew-smtp-sentinel (process event) (let* ((pnm (process-name process)) - (pro (mew-smtp-get-process pnm)) - (case (mew-smtp-get-case pnm)) - (qfld (mew-smtp-get-qfld pnm)) - (msgs (mew-smtp-get-messages pnm)) - (fallback (mew-smtp-get-fallback pnm)) (status (mew-smtp-get-status pnm))) (save-excursion (mew-smtp-debug "SMTP SENTINEL" event) @@ -800,15 +568,8 @@ ((or (string-match "failed" event) (and (string= status "greeting") (string-match "connection broken by remote peer" event))) - (if fallback - (progn - (mew-smtp-send-message case qfld msgs fallback) - ;; A failed process stays - (when (memq (process-status pro) '(failed connect)) - (delete-process pro) - (mew-info-clean-up pnm))) - (mew-smtp-set-error pnm (substring event 0 -1)) - (mew-smtp-sentinel2 process event))) + (mew-smtp-set-error pnm (substring event 0 -1)) + (mew-smtp-sentinel2 process event)) ((string-match "open" event) ;; OK connected ) @@ -865,7 +626,7 @@ (qfld (mew-queue-folder case)) (oname (buffer-name)) (work (buffer-file-name)) - file-info file info nname) + file-info file (info nil) nname) (mew-local-folder-check qfld) (setq file-info (mew-queue-enqueue work qfld)) (mew-set '(file info) file-info) @@ -894,7 +655,7 @@ (let* ((dir (file-name-directory back)) (msg (file-name-nondirectory back)) (case (mew-smtp-get-case pnm)) - msgid logtime) + (msgid nil) (logtime nil)) (mew-elet (mew-erase-buffer) (mew-set-buffer-multibyte t) @@ -946,13 +707,13 @@ (server (mew-smtp-get-server pnm)) (port (mew-smtp-get-port pnm)) (sshsrv (mew-smtp-get-ssh-server pnm)) - (sslp (mew-smtp-get-ssl-p pnm))) + (secure (mew-smtp-get-secure pnm))) (with-temp-buffer (and logtime (insert logtime)) (and msgid (insert " id=" msgid)) (and server (insert " server=" server ":" port)) (and sshsrv (insert " sshsrv=" sshsrv)) - (and sslp (insert " SSL/TLS")) + (and secure (insert " TLS/STARTTLS")) (and recipients (setq recipients (mapconcat 'identity recipients ","))) (and recipients (insert " recipients=" recipients)) diff --git a/elpa/mew-20251127.544/mew-sort.el b/elpa/mew-20260425.817/mew-sort.el similarity index 98% rename from elpa/mew-20251127.544/mew-sort.el rename to elpa/mew-20260425.817/mew-sort.el index 6ba1a317..a4115761 100644 --- a/elpa/mew-20251127.544/mew-sort.el +++ b/elpa/mew-20260425.817/mew-sort.el @@ -181,7 +181,7 @@ (let* ((sort-key (or (mew-alist-get-value (assoc folder mew-sort-default-key-alist)) mew-sort-default-key)) - key type funcs newkey) + (key nil) (type nil) funcs newkey) (mew-set '(key type) (mew-input-sort-key sort-key)) (setq funcs (assoc type mew-sort-switch)) (setq newkey (concat (capitalize key) ":")) @@ -287,7 +287,9 @@ ;;; (defun mew-summary-sort-body (folder arg) - (let (key idx files range beg end func1 func2 diag) + (let ((range nil) + (key nil) (idx nil) (files nil) + (beg nil) (end nil) (func1 nil) (func2 nil) diag) ;; Summary cache updates (mew-summary-reset) (mew-summary-retrieve-gap folder) @@ -319,7 +321,8 @@ (defun mew-summary-sort-body-for-debug (folder arg) (let ((win (selected-window)) - key idx files range func1 func2 diag) + (key nil) (idx nil) + (files nil) (range nil) (func1 nil) (func2 nil) diag) (mew-set '(range beg end) (mew-sort-get-range arg)) (mew-set '(key func1 func2) (mew-sort-ask-key folder)) (setq diag (if arg folder (format "%s: %s" folder range))) @@ -380,7 +383,8 @@ or the region. " (ofolder (mew-summary-folder-name 'ext)) (vfolder (mew-folder-to-selection ofolder)) (pfolder (mew-summary-physical-folder)) - key idx files range beg end func1 func2 diag) + (key nil) (idx nil) (files nil) (range nil) (beg nil) (end nil) + (func1 nil) (func2 nil) diag) (mew-set '(range beg end) (mew-sort-get-range arg)) (mew-set '(key func1 func2) (mew-sort-ask-key ofolder)) (setq diag (if arg ofolder (format "%s: %s" ofolder range))) diff --git a/elpa/mew-20251127.544/mew-ssh.el b/elpa/mew-20260425.817/mew-ssh.el similarity index 100% rename from elpa/mew-20251127.544/mew-ssh.el rename to elpa/mew-20260425.817/mew-ssh.el diff --git a/elpa/mew-20251127.544/mew-ssl.el b/elpa/mew-20260425.817/mew-stunnel.el similarity index 62% rename from elpa/mew-20251127.544/mew-ssl.el rename to elpa/mew-20260425.817/mew-stunnel.el index b81df35c..a737666a 100644 --- a/elpa/mew-20251127.544/mew-ssl.el +++ b/elpa/mew-20260425.817/mew-stunnel.el @@ -1,5 +1,5 @@ ;;; -*- lexical-binding: nil; -*- -;;; mew-ssl.el +;;; mew-stunnel.el ;; Author: Mew developing team ;; Created: Jul 25, 2002 @@ -8,82 +8,18 @@ (require 'mew) -(defun mew-ssl-native-p (type) - "Return if the type is native or not" - (or (eq type 'native) - (and (eq type t) (eq mew-ssl-default 'native)))) -(defun mew-ssl-starttls-p (type port sslport) - "Return if STARTTLS should be used or not" - (and type (mew-port-equal port sslport))) -(defvar mew-ssl-min-prime-bits 2048 - "Default prime bits for GnuTLS connection.") -(defvar mew-ssl-verify-error nil - "verify-error parameter passed to GnuTLS. You might want to -keep this as nil.") -(defvar mew-ssl-native-starttls-plist - '( - ;; RFC 3207 - (smtp . (:capability-command - (format "EHLO %s\r\n" (mew-smtp-helo-domain case)) - :always-query-capabilities t - :end-of-command - (format "^[0-9]+ .*\r?\n") - :end-of-capability - (format "^[0-9]+ .*\r?\n") - :success (format "^2.*\r?\n") - :starttls-function - (lambda (capabilities) - (and (string-match "[ -]STARTTLS" capabilities) - "STARTTLS\r\n")))) - ;; RFC 2595 - (imap . (:capability-command - (format "1 CAPABILITY\r\n") - :always-query-capabilities t - :end-of-capability - (format "\r?\n") - :end-of-command - (format "\r?\n") - :success - (format "^1 OK ") - :starttls-function - (lambda (capabilities) - (when (string-match-p "STARTTLS" capabilities) - "1 STARTTLS\r\n")))) - ;; RFC 2595 - (pop . (:capability-command - (format "CAPA\r\n") - :always-query-capabilities nil - :end-of-capability - (format "^\\.\r?\n\\|^-ERR") - :end-of-command - (format "^\\(-ERR\\|+OK\\).*\r?\n") - :success - (format "^\\+OK.*\n") - :starttls-function - (lambda (capabilities) - (and (string-match "\\bSTLS\\b" capabilities) - "STLS\r\n")))) - ;; RFC 4642 - (nntp . (:capability-command - (format "CAPABILITIES\r?\n") - :always-query-capabilities t - :end-of-capability - (format "^\\.\r?\n") - :end-of-command - (format "^\\.\r?\n") - :success - (format "^2.+ \r?\n") - :starttls-function - (lambda (capabilities) - (when (string-match-p "STARTTLS" capabilities) - "STARTTLS\r\n")))) - )) -(defun mew-starttls-get-param (proto key evalp) - "Get parameter from mew-ssl-native-starttls-plist" - (let ((p (plist-get (cdr (assq proto mew-ssl-native-starttls-plist)) key))) - (if evalp (eval p) p))) - (defvar mew-prog-ssl "stunnel") + +(defconst mew-stunnel-localhost "localhost") + +;; for mew-config.el +;; The prefix should be mew-ssl + +(defvar mew-prog-ssl-arg nil + "A string of extra text to place in the configuration file, +which should end with a newline (example: \"fips=no\\n\"); or nil to insert +no extra text.") + (defvar mew-ssl-cert-directory "~/.certs" "The directory where certificates of root servers are stored. A file name of a certificate should be `cert-hash.0'. @@ -101,16 +37,11 @@ A file name of a certificate should be `cert-hash.0'. 3 - verify server's certificate which locally installed (not one from the server).") -(defvar mew-prog-ssl-arg nil - "A string of extra text to place in the configuration file, -which should end with a newline (example: \"fips=no\\n\"); or nil to insert -no extra text.") - (defvar mew-ssl-proxy-server nil) + (defvar mew-ssl-proxy-port nil) -(defvar mew-ssl-ver nil) -(defvar mew-ssl-minor-ver nil) +;; (defvar mew-ssl-libwrap nil "Set to t when stunnel supports \"LIBWRAP\" feature.") @@ -121,46 +52,40 @@ no extra text.") (defvar mew-ssl-syslog nil "Set to t when stunnel supports \"syslog\" option.") -(defconst mew-ssl-process-exec-cnt 3) +;; -(defconst mew-ssl-min-major-ver 5 - "Minimum major version of stunnel that Mew supports.") -(defconst mew-ssl-min-minor-ver 15 - "Minimum minor version of stunnel that Mew supports.") +(defvar mew-stunnel-ver nil) +(defvar mew-stunnel-minor-ver nil) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; -;;; Magic words -;;; +(defconst mew-stunnel-min-major-ver 5 + "Minimum major version of stunnel that Mew supports.") -(defconst mew-tls-smtp "smtp") -(defconst mew-tls-pop "pop3") -(defconst mew-tls-nntp "nntp") -(defconst mew-tls-imap "imap") ;; xxx stunnel does not support this. +(defconst mew-stunnel-min-minor-ver 15 + "Minimum minor version of stunnel that Mew supports.") -(defconst mew-ssl-localhost "localhost") +(defconst mew-stunnel-process-exec-cnt 3) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; SSL/TLS info ;;; -(defvar mew-ssl-info-list '("status" "try" "file" "string")) +(defvar mew-stunnel-info-list '("status" "try" "file" "string")) -(mew-info-defun "mew-ssl-" mew-ssl-info-list) +(mew-info-defun "mew-stunnel-" mew-stunnel-info-list) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Process name ;;; -(defconst mew-ssl-info-prefix "mew-ssl-info-") +(defconst mew-stunnel-info-prefix "mew-stunnel-info-") -(defun mew-ssl-info-name (server remoteport localport) - (format "%s:%s:%d:%d" mew-ssl-info-prefix server remoteport localport)) +(defun mew-stunnel-info-name (server remoteport localport) + (format "%s:%s:%d:%d" mew-stunnel-info-prefix server remoteport localport)) -(defun mew-ssl-info-name-regex (server remoteport) - (format "^%s:%s:%d" mew-ssl-info-prefix server remoteport)) +(defun mew-stunnel-info-name-regex (server remoteport) + (format "^%s:%s:%d" mew-stunnel-info-prefix server remoteport)) (defun mew-ssl-pnm-to-lport (pnm) (if (string-match ":\\([0-9]+\\)$" pnm) (match-string 1 pnm))) @@ -170,13 +95,13 @@ no extra text.") ;;; Executing SSL/TLS ;;; -(defun mew-ssl-server (server) +(defun mew-stunnel-server (server) (if (string= server "localhost") - mew-ssl-localhost + mew-stunnel-localhost server)) -(defun mew-ssl-options (case server remoteport localport tls) - (setq server (mew-ssl-server server)) +(defun mew-stunnel-options (case server remoteport localport tls) + (setq server (mew-stunnel-server server)) (let ((file (mew-make-temp-name))) (with-temp-buffer (insert "client=yes\n") @@ -196,7 +121,7 @@ no extra text.") (if (mew-prog-ssl-arg case) (insert (mew-prog-ssl-arg case))) (insert (format "[%d]\n" localport)) - (insert (format "accept=%s:%d\n" mew-ssl-localhost localport)) + (insert (format "accept=%s:%d\n" mew-stunnel-localhost localport)) (if (mew-ssl-proxy-server case) (insert (format "connect=%s:%s\nprotocol=connect\nprotocolHost=%s:%d\n" @@ -209,7 +134,7 @@ no extra text.") (write-region (point-min) (point-max) file nil 'no-msg)) (list file)))) -(defun mew-open-ssl-stream (case server serv tls) +(defun mew-open-stunnel-stream (case server serv tls) "Open an SSL/TLS stream for SERVER\\='s SERV. This function returns a process when an SSL/TLS connection is created successfully. @@ -217,23 +142,23 @@ If TLS is nil, an SSL connection is created. If TLS is a magic word for `stunnel', a TLS connection is created. A local port number can be obtained the process name after `:'. " (cond - ((or (null mew-ssl-ver) (not (mew-which-exec mew-prog-ssl))) + ((or (null mew-stunnel-ver) (not (mew-which-exec mew-prog-ssl))) (message "'%s' is not found" mew-prog-ssl) nil) - ((or (< mew-ssl-ver mew-ssl-min-major-ver) - (and (= mew-ssl-ver mew-ssl-min-major-ver) - (< mew-ssl-minor-ver mew-ssl-min-minor-ver))) + ((or (< mew-stunnel-ver mew-stunnel-min-major-ver) + (and (= mew-stunnel-ver mew-stunnel-min-major-ver) + (< mew-stunnel-minor-ver mew-stunnel-min-minor-ver))) (message "Version %d.%d of '%s' is installed, but Mew requires version %d.%d or later." - mew-ssl-ver mew-ssl-minor-ver mew-prog-ssl mew-ssl-min-major-ver - mew-ssl-min-minor-ver) + mew-stunnel-ver mew-stunnel-minor-ver mew-prog-ssl mew-stunnel-min-major-ver + mew-stunnel-min-minor-ver) nil) (t (let* ((remoteport (mew-serv-to-port serv)) (localport (+ 8000 (% (mew-random) 4000))) (process-connection-type mew-connection-type2) - (N mew-ssl-process-exec-cnt) + (N mew-stunnel-process-exec-cnt) (pros (process-list)) - (regex (mew-ssl-info-name-regex server remoteport)) + (regex (mew-stunnel-info-name-regex server remoteport)) name pnm pro dummy bound opts) (catch 'find (dolist (pr pros) @@ -248,8 +173,8 @@ A local port number can be obtained the process name after `:'. " (setq pro nil) (catch 'loop (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 name (mew-stunnel-info-name server remoteport localport)) + (setq opts (mew-stunnel-options case server remoteport localport tls)) (setq pro (apply 'start-process name nil mew-prog-ssl opts)) ;; An error would occur. So, let's exit in the case. (cond @@ -264,17 +189,17 @@ A local port number can be obtained the process name after `:'. " (mew-process-silent-exit pro) (setq pnm (process-name pro)) (mew-info-clean-up pnm) - (mew-ssl-set-try pnm 0) - (mew-ssl-set-file pnm (car opts)) + (mew-stunnel-set-try pnm 0) + (mew-stunnel-set-file pnm (car opts)) (mew-set-process-cs pro mew-cs-text-for-read mew-cs-text-for-write) - (set-process-filter pro 'mew-ssl-filter1) + (set-process-filter pro 'mew-stunnel-filter1) (set-process-sentinel pro 'mew-ssl-sentinel) - (mew-rendezvous (null (mew-ssl-get-status pnm))) - (if (eq (mew-ssl-get-status pnm) t) + (mew-rendezvous (null (mew-stunnel-get-status pnm))) + (if (eq (mew-stunnel-get-status pnm) t) (throw 'loop (setq bound t))) ;; bind-failure (setq localport (1+ localport)))) - (mew-ssl-set-status pnm nil) + (mew-stunnel-set-status pnm nil) (if (not bound) (progn (message "Creating an SSL/TLS connection...FAILED") @@ -283,14 +208,14 @@ A local port number can be obtained the process name after `:'. " ;; until a tunneled connection is created. ;; So, we need to check the SSL/TLS tunnel with a dummy ;; tunneled connection here. - (set-process-filter pro 'mew-ssl-filter2) - (setq dummy (open-network-stream " *Mew dummy*" nil mew-ssl-localhost localport)) - (mew-rendezvous (null (mew-ssl-get-status pnm))) + (set-process-filter pro 'mew-stunnel-filter2) + (setq dummy (open-network-stream " *Mew dummy*" nil mew-stunnel-localhost localport)) + (mew-rendezvous (null (mew-stunnel-get-status pnm))) (if (processp dummy) (delete-process dummy)) - (if (eq (mew-ssl-get-status pnm) t) + (if (eq (mew-stunnel-get-status pnm) t) (progn (message "Creating an SSL/TLS connection...done") - (set-process-filter pro 'mew-ssl-filter3) + (set-process-filter pro 'mew-stunnel-filter3) pro) ;; verify-failure (delete-process pro) @@ -302,51 +227,51 @@ A local port number can be obtained the process name after `:'. " ;;; Filter and sentinel ;;; -(defun mew-ssl-debug (label string) +(defun mew-stunnel-debug (label string) (when (mew-debug 'net) (with-current-buffer (get-buffer-create mew-buffer-debug) (goto-char (point-max)) (insert (format "\n<%s>\n%s\n" label string))))) -(defun mew-ssl-filter1 (process string) +(defun mew-stunnel-filter1 (process string) (let* ((pnm (process-name process)) - (prev-str (mew-ssl-get-string pnm))) + (prev-str (mew-stunnel-get-string pnm))) (save-excursion - (mew-ssl-debug "SSL/TLS: " string) - (mew-ssl-set-string pnm string) + (mew-stunnel-debug "SSL/TLS: " string) + (mew-stunnel-set-string pnm string) (setq string (concat prev-str string)) (cond ((string-match "bound \\(\\|FD=[0-9]+ \\)to" string) - (mew-ssl-set-status pnm t)) + (mew-stunnel-set-status pnm t)) ((string-match "gethostbyname: Valid name, no data record of requested type" string) - (mew-ssl-set-status pnm 'gethostbyname-failure)) + (mew-stunnel-set-status pnm 'gethostbyname-failure)) ((string-match "gethostbyname: Host not found" string) - (mew-ssl-set-status pnm 'gethostbyname-failure)) + (mew-stunnel-set-status pnm 'gethostbyname-failure)) ((string-match "Local: bind: Address already in use" string) - (mew-ssl-set-status pnm 'bind-failure)))))) + (mew-stunnel-set-status pnm 'bind-failure)))))) -(defun mew-ssl-filter2 (process string) +(defun mew-stunnel-filter2 (process string) (let* ((pnm (process-name process)) - (prev-str (mew-ssl-get-string pnm))) + (prev-str (mew-stunnel-get-string pnm))) (save-excursion - (mew-ssl-debug "SSL/TLS: " string) - (mew-ssl-set-string pnm string) + (mew-stunnel-debug "SSL/TLS: " string) + (mew-stunnel-set-string pnm string) (setq string (concat prev-str string)) (cond ((string-match "Negotiated \\| ciphersuite:\\|opened with SSL" string) - (mew-ssl-set-status pnm t)) + (mew-stunnel-set-status pnm t)) ((string-match "Failed to initialize" string) - (mew-ssl-set-status pnm t)) ;; xxx + (mew-stunnel-set-status pnm t)) ;; xxx ((string-match "verify failed" string) - (mew-ssl-set-status pnm 'verify-failure)))))) + (mew-stunnel-set-status pnm 'verify-failure)))))) -(defun mew-ssl-filter3 (_process string) +(defun mew-stunnel-filter3 (_process string) (save-excursion - (mew-ssl-debug "SSL/TLS: " string))) + (mew-stunnel-debug "SSL/TLS: " string))) (defun mew-ssl-sentinel (process _event) (let* ((pnm (process-name process)) - (file (mew-ssl-get-file pnm))) + (file (mew-stunnel-get-file pnm))) (save-excursion (mew-delete-file file)))) @@ -355,18 +280,18 @@ A local port number can be obtained the process name after `:'. " ;;; stunnel version check ;;; -(defun mew-ssl-setup () +(defun mew-stunnel-setup () (if (not (mew-which-exec mew-prog-ssl)) - (setq mew-ssl-ver nil) + (setq mew-stunnel-ver nil) (with-temp-buffer (call-process mew-prog-ssl nil t nil "-help") (goto-char (point-min)) (re-search-forward "^stunnel " nil t 1) (if (looking-at "\\([45]\\)\\.\\([0-9]+\\)") (progn - (setq mew-ssl-ver (string-to-number (mew-match-string 1))) - (setq mew-ssl-minor-ver (string-to-number (mew-match-string 2)))) - (setq mew-ssl-ver 3)) + (setq mew-stunnel-ver (string-to-number (mew-match-string 1))) + (setq mew-stunnel-minor-ver (string-to-number (mew-match-string 2)))) + (setq mew-stunnel-ver 3)) (when (re-search-forward "LIBWRAP" nil t) (setq mew-ssl-libwrap t)) (when (re-search-forward "foreground" nil t) @@ -376,7 +301,26 @@ A local port number can be obtained the process name after `:'. " (when (re-search-forward "syslog" nil t) (setq mew-ssl-syslog t))))) -(provide 'mew-ssl) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; +;;; + +(defconst mew-stunnel-protocol-smtp "smtp") +(defconst mew-stunnel-protocol-pop "pop3") +(defconst mew-stunnel-protocol-nntp "nntp") +(defconst mew-stunnel-protocol-imap "imap") ;; xxx stunnel does not support this. + +(defun mew-stunnel-p (type) + "Return if the type is stunnel or not" + (or (eq type 'tunnel) + (and (eq type t) (eq mew-ssl-default 'tunnel)))) + +(defun mew-starttls-p (type port sslport) + "Return if STARTTLS should be used or not" + (and type (mew-port-equal port sslport))) + +(provide 'mew-stunnel) ;;; Copyright Notice: @@ -408,4 +352,4 @@ A local port number can be obtained the process name after `:'. " ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -;;; mew-ssl.el ends here +;;; mew-stunnel.el ends here diff --git a/elpa/mew-20251127.544/mew-summary.el b/elpa/mew-20260425.817/mew-summary.el similarity index 100% rename from elpa/mew-20251127.544/mew-summary.el rename to elpa/mew-20260425.817/mew-summary.el diff --git a/elpa/mew-20251127.544/mew-summary2.el b/elpa/mew-20260425.817/mew-summary2.el similarity index 99% rename from elpa/mew-20251127.544/mew-summary2.el rename to elpa/mew-20260425.817/mew-summary2.el index 648ba9c1..0117a893 100644 --- a/elpa/mew-20251127.544/mew-summary2.el +++ b/elpa/mew-20260425.817/mew-summary2.el @@ -523,7 +523,7 @@ If called with `\\[universal-argument]', it stays writable." (let* ((win (selected-window)) (fld (mew-summary-folder-name)) (msg (mew-summary-message-number2)) - lst svr-date (snd "?") (rcv "?") last svr date tmp) + lst svr-date (snd "?") (rcv "?") last (svr nil) date tmp) (mew-summary-set-message-buffer fld msg) ;; message buffer or cache buffer (setq lst (nreverse (mew-header-get-value mew-received: 'as-list))) diff --git a/elpa/mew-20251127.544/mew-summary3.el b/elpa/mew-20260425.817/mew-summary3.el similarity index 99% rename from elpa/mew-20251127.544/mew-summary3.el rename to elpa/mew-20260425.817/mew-summary3.el index 970b2960..71cc8743 100644 --- a/elpa/mew-20251127.544/mew-summary3.el +++ b/elpa/mew-20260425.817/mew-summary3.el @@ -306,8 +306,9 @@ You may want to set `mew-reply-all-alist' to: (msg (mew-summary-message-number2)) (split-width-threshold nil) cwin cbuf draft case - subject to cc newsgroups in-reply-to references - encrypted fromme ret) + subject (to nil) (cc nil) (newsgroups nil) + (in-reply-to nil) (references nil) + encrypted (fromme nil) ret) (if (string= (mew-summary-folder-name) mew-draft-folder) (message "Cannot reply to draft message") (setq draft (mew-folder-new-message mew-draft-folder)) diff --git a/elpa/mew-20251127.544/mew-summary4.el b/elpa/mew-20260425.817/mew-summary4.el similarity index 100% rename from elpa/mew-20251127.544/mew-summary4.el rename to elpa/mew-20260425.817/mew-summary4.el diff --git a/elpa/mew-20251127.544/mew-syntax.el b/elpa/mew-20260425.817/mew-syntax.el similarity index 99% rename from elpa/mew-20251127.544/mew-syntax.el rename to elpa/mew-20260425.817/mew-syntax.el index 5f3eceb3..7f3deecd 100644 --- a/elpa/mew-20251127.544/mew-syntax.el +++ b/elpa/mew-20260425.817/mew-syntax.el @@ -729,7 +729,7 @@ system." (lf (- LT lm ln lt ld 8)) (marks (make-string lm mew-sp)) (i 0) (N (length privacy)) - ctm ctp) + (ctm nil) (ctp nil)) (run-hooks 'mew-syntax-format-hook) diff --git a/elpa/mew-20251127.544/mew-thread.el b/elpa/mew-20260425.817/mew-thread.el similarity index 100% rename from elpa/mew-20251127.544/mew-thread.el rename to elpa/mew-20260425.817/mew-thread.el diff --git a/elpa/mew-20251127.544/mew-unix.el b/elpa/mew-20260425.817/mew-unix.el similarity index 100% rename from elpa/mew-20251127.544/mew-unix.el rename to elpa/mew-20260425.817/mew-unix.el diff --git a/elpa/mew-20251127.544/mew-vars.el b/elpa/mew-20260425.817/mew-vars.el similarity index 99% rename from elpa/mew-20251127.544/mew-vars.el rename to elpa/mew-20260425.817/mew-vars.el index d9393788..018350ac 100644 --- a/elpa/mew-20251127.544/mew-vars.el +++ b/elpa/mew-20260425.817/mew-vars.el @@ -415,7 +415,7 @@ Note that this hook is called after composition of the message." (defcustom mew-summary-delete-folder-hook nil "*Hook called when a folder deleted. -Eash function is called with a deleted folder as the argument." +Each function is called with a deleted folder as the argument." :group 'mew-summary :type 'hook) @@ -542,7 +542,7 @@ i.e. \"Friendly name \"." ("Cc:" "To:" "Cc:" "Apparently-To:"))) "*Alist to be used to prepare To:/Cc:/Newsgroups: in a reply draft. For most cases, this alist is used. -For more infomation, see the document of '\\\\[mew-summary-reply]'") +For more information, see the document of '\\\\[mew-summary-reply]'") (defvar mew-reply-sender-alist '(("Reply-To:" @@ -551,7 +551,7 @@ For more infomation, see the document of '\\\\[mew-summary ("To:" "From:"))) "*Alist to be used to prepare To:/Cc:/Newsgroups: in a reply draft. When `\\[universal-argument]' is specified for `\\\\[mew-summary-reply]' and `\\[mew-summary-reply-with-citation]', this alist is used. -For more infomation, see the document of `\\[mew-summary-reply]'") +For more information, see the document of `\\[mew-summary-reply]'") (defvar mew-reply-fromme-alist '((t @@ -560,7 +560,7 @@ For more infomation, see the document of `\\[mew-summary-reply]'") ("Newsgroups:" "Newsgroups:"))) "*Alist to be used to prepare To:/Cc:/Newsgroups: in a reply draft. When the message to be replied is sent/posted by ME, this alist is used. -For more infomation, see the document of `\\\\[mew-summary-reply]'") +For more information, see the document of `\\\\[mew-summary-reply]'") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -588,7 +588,7 @@ is kept for further connections. This must be `t' for IMAP and NNTP." ;; XXX: the default value of gnutls-trustfiles can ;; be different from the compile-time list. (defcustom mew-ssl-trustfiles nil - "List of CA buldle location filenames used by GnuTLS. + "List of CA bundle location filenames used by GnuTLS. nil - use the default list specified at compile time of the Emacs." :group 'mew-net :type '(choice (const :tag "System Default" nil) @@ -619,8 +619,8 @@ server, set an appropriate value." :group 'mew-smtp :type 'string) -(defcustom mew-smtp-port "smtp" - "*The SMTP port. (e.g. \"smtp\" or 25)" +(defcustom mew-smtp-port "submission" + "*The SMTP port. (e.g. \"submission\" or 587)" :group 'mew-smtp :type 'string) @@ -644,8 +644,8 @@ tunnel - Use an external program to establish a TLS tunnel. (const :tag "External (stunnel)" tunnel))) (defcustom mew-smtp-ssl-port 465 ;; RFC 8314 - "*The port for SMTP over SSL/TLS. Set this to \"smtp\" if you -want to use TLS." + "*The port for SMTP over SSL/TLS. Set this to mew-smtp-port if you +want to use STARTTLS." :group 'mew-smtp :type 'string) @@ -1744,14 +1744,6 @@ created (if the feature is provided)." :group 'mew-privacy :type 'boolean) -(defcustom mew-master-passwd-encryption 'symmetric - "*Encryption method for a master password file when - mew-master-passwd-type is \"Master Password\"" - :group 'mew-privacy - :type '(choice - (const :tag "Symmetric encryption" symmetric) - (const :tag "Asymmetric (public key) encryption" asymmetric))) - (defcustom mew-master-passwd-type 'master "*Type of the password manager when mew-use-master-passwd is non-nil." :group 'mew-privacy @@ -3077,7 +3069,7 @@ You should choose `pgp' or `smime'." (defcustom mew-protect-privacy-always-type 'pgp-signature "*A type of privacy protection for all drafts. Currently, `pgp-signature', `pgp-encryption', `pgp-signature-encryption', -`pgp-encryption-signatur'e, and nil are available. Since signature +`pgp-encryption-signature', and nil are available. Since signature does not require receiver\\='s public key, signature service may be appropriate for this value." :group 'mew-privacy @@ -3312,7 +3304,7 @@ Bad example: \(3) Decode invalid MIME parameters, which violates RFC 2231. \(i) Raw text. -\(ii) Encorded-word defined in RFC 2047. +\(ii) Encoded-word defined in RFC 2047. Good example: Content-Disposition: attachment; diff --git a/elpa/mew-20251127.544/mew-vars2.el b/elpa/mew-20260425.817/mew-vars2.el similarity index 99% rename from elpa/mew-20251127.544/mew-vars2.el rename to elpa/mew-20260425.817/mew-vars2.el index c88856f5..7972f133 100644 --- a/elpa/mew-20251127.544/mew-vars2.el +++ b/elpa/mew-20260425.817/mew-vars2.el @@ -749,7 +749,7 @@ For more detail, see mew-mark-put-mark and mew-mark-afterstep.") mew-mark-exec-refile mew-mark-sanity-refile)) "*A list of lists which consists of mark, name, level, statefullp, kill-line-p, -undo-func, exec-func, and sanity-fucn.") +undo-func, exec-func, and sanity-func.") ;; diff --git a/elpa/mew-20251127.544/mew-vars3.el b/elpa/mew-20260425.817/mew-vars3.el similarity index 100% rename from elpa/mew-20251127.544/mew-vars3.el rename to elpa/mew-20260425.817/mew-vars3.el diff --git a/elpa/mew-20251127.544/mew-varsx.el b/elpa/mew-20260425.817/mew-varsx.el similarity index 100% rename from elpa/mew-20251127.544/mew-varsx.el rename to elpa/mew-20260425.817/mew-varsx.el diff --git a/elpa/mew-20251127.544/mew-virtual.el b/elpa/mew-20260425.817/mew-virtual.el similarity index 99% rename from elpa/mew-20251127.544/mew-virtual.el rename to elpa/mew-20260425.817/mew-virtual.el index 87572648..e926778f 100644 --- a/elpa/mew-20251127.544/mew-virtual.el +++ b/elpa/mew-20260425.817/mew-virtual.el @@ -118,7 +118,9 @@ "Create selection with `grep'" (interactive) (let ((file-rttl (mew-summary-selection-by-pick-with-grep1 prog opts pattern rfolder msgs)) - file rttl func args) + (file nil) + (rttl nil) + func args) (mew-set '(file rttl) file-rttl) (setq func `(lambda () (mew-delete-file ,file))) (setq args (list "-i" file)) diff --git a/elpa/mew-20251127.544/mew-win32.el b/elpa/mew-20260425.817/mew-win32.el similarity index 100% rename from elpa/mew-20251127.544/mew-win32.el rename to elpa/mew-20260425.817/mew-win32.el diff --git a/elpa/mew-20251127.544/mew.el b/elpa/mew-20260425.817/mew.el similarity index 99% rename from elpa/mew-20251127.544/mew.el rename to elpa/mew-20260425.817/mew.el index f9844648..377e0166 100644 --- a/elpa/mew-20251127.544/mew.el +++ b/elpa/mew-20260425.817/mew.el @@ -3,10 +3,10 @@ ;; Author: Mew developing team ;; Created: Mar 23, 1994 -;; Revised: Jul 7, 2025 +;; Revised: Apr 16, 2026 -;; Package-Version: 20251127.544 -;; Package-Revision: 505fa0a42dd1 +;; Package-Version: 20260425.817 +;; Package-Revision: 25bc9a8f7750 ;;; Commentary: @@ -22,7 +22,7 @@ ;;; Mew version ;;; -(defconst mew-version-number "6.10" +(defconst mew-version-number "6.11rc2" "Version number for this version of Mew.") (defconst mew-version (format "Mew version %s" mew-version-number) "Version string for this version of Mew.") @@ -230,7 +230,7 @@ of the current world is also updated." ((and arg (integerp arg)) (mew-message-for-summary "This command was obsoleted. Type '\\[universal-argument]\\[mew-status-update]' to collect folders")) ((consp arg) - (let (case proto) + (let ((case nil) (proto nil)) (mew-set '(case proto) (mew-summary-case-proto)) (cond ((mew-folder-localp proto) @@ -258,7 +258,7 @@ of the current world is also updated." (mew-pgp-setup) (mew-smime-setup) (mew-ssh-setup) - (mew-ssl-setup) + (mew-stunnel-setup) (mew-net-setup) (mew-thread-setup) (mew-decoration-setup) @@ -734,7 +734,8 @@ Mew remain, so you can resume with buffer operations." (require 'mew-highlight) (require 'mew-net) (require 'mew-ssh) -(require 'mew-ssl) +(require 'mew-stunnel) +(require 'mew-gnutls) (require 'mew-smtp) (require 'mew-pop) (require 'mew-nntp) diff --git a/elpa/mew-20251127.544/mew.info b/elpa/mew-20260425.817/mew.info similarity index 98% rename from elpa/mew-20251127.544/mew.info rename to elpa/mew-20260425.817/mew.info index 50510535..d3454cf7 100644 --- a/elpa/mew-20251127.544/mew.info +++ b/elpa/mew-20260425.817/mew.info @@ -15,14 +15,14 @@ END-INFO-DIR-ENTRY  File: mew.info, Node: Top, Next: Overview, Prev: (dir), Up: (dir) -Mew 6.10 Manual +Mew 6.11 Manual *************** Kazu YAMAMOTO Created 1996/02/18 - Modified 2025/07/07 + Modified 2026/04/16 -This manual documents Mew version 6.10. In addition to this manual, +This manual documents Mew version 6.11. In addition to this manual, you may find useful information about Mew from Mew's official home page (http://www.Mew.org/). @@ -81,7 +81,7 @@ File: mew.info, Node: characteristic, Next: Emacsen, Prev: Overview, Up: Overvie Mew's features ============== -The features of Mew 6.10 are as follows: +The features of Mew 6.11 are as follows: - You can easily display a very complicated structured message. What you should do to view messages is just type `SPC'. @@ -630,16 +630,16 @@ There are several variables for controlling message analysis. The size limit of messages to be analyzed. If the size of a message is less than or equal to this value, it is analyzed and displayed. Otherwise, the raw message is displayed without - analysis. The default value is 10000 bytes. + analysis. The default value is 100000 bytes. `mew-header-max-length' The length limit of header to be analyzed. If the length of a header is less than or equal to this value, it is analyzed and - displayed. Otherwise, the message is displayed as fragmentarily + displayed. Otherwise, the message is displayed fragmentarily since the analysis is stopped. The default value is 100 lines. `mew-decode-broken' Whether Mew be liberal or conservative to invalid messages. If the value is `t', the setting is liberal. If the value is `nil', the - setting is for conservative. If conservative and invalid portions are + setting is conservative. If conservative and invalid portions are found, they are reported in the X-Mew: field. The default value is `t'. `mew-use-text-body' @@ -1260,7 +1260,7 @@ Then a buffer like the following is prepared. To: Subject: From: Kazu Yamamoto - X-Mailer: Mew version 6.10 on Emacs 29.4 + X-Mailer: Mew version 6.11 on Emacs 30.2 ---- We call this "Draft mode". In Draft mode, we call the region above @@ -1771,7 +1771,7 @@ following example: To: pooh Subject: the next Sunday From: Piglet - X-Mailer: Mew version 6.10 on Emacs 29.4 + X-Mailer: Mew version 6.11 on Emacs 30.2 ---- Would you like to play with me next Sunday? @@ -1785,7 +1785,7 @@ This message is modified as follows, for example, if it is put into To: winnie-the-pooh@example.net Subject: the next Sunday From: Piglet - X-Mailer: Mew version 6.10 on Emacs 29.4 + X-Mailer: Mew version 6.11 on Emacs 30.2 Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit @@ -1829,7 +1829,7 @@ that both of these are commands in Summary mode. `C-cC-c' Send messages in +queue. Method is appropriate if you like to preview composed messages first in +queue and then send them. If - `mew-ask-flush-queue' is `t', you are asked, Flush queue? (y or + `mew-ask-flush-queue' is `t', you are asked, "Flush queue? (y or n) ". `mew-ask-flush-queue' is default to `nil'. @@ -1919,7 +1919,7 @@ body. Now the entire draft looks like: To: mew-dist Subject: This is header - X-Mailer: Mew version 6.10 on Emacs 29.4 + X-Mailer: Mew version 6.11 on Emacs 30.2 ---- This is the body. @@ -2832,7 +2832,7 @@ Exactly speaking, the following rule is applied for local folders. - If `mew-trash-folder-list' is defined, messages marked with `D' in one of the folders defined in it are deleted. Otherwise, they are moved to the trash. - - If `mew-trash-folder-list' is `nl', messages marked with `D' in + - If `mew-trash-folder-list' is `nil', messages marked with `D' in `mew-trash-folder' are deleted. Otherwise, they are moved to the trash. (This is default.) @@ -3102,7 +3102,7 @@ server: Review mark. This IMAP flag is \Flagged. To allow off-line operations, Mew synchronizes marks with an IMAP -server everytime when a user makes an action. Mew does not +server every time when a user makes an action. Mew does not automatically synchronize marks repeatedly. The followings are how Mew synchronizes marks. @@ -3670,7 +3670,7 @@ the mark is not put any corresponding messages in Virtual mode. You cannot process marks in Virtual mode. Even if you type `x' to process marks in Virtual mode, the cursor moves to corresponding -Summary mode, if exsists, and you are asked to type `x' again. +Summary mode, if exists, and you are asked to type `x' again. You should take note that Virtual folder is really virtual and it does not exist in file system. If you exit Mew, it then disappears. To @@ -3792,9 +3792,8 @@ described later in the following points: To use the feature of dialog, execute `kI' to create database. Since new messages are not automatically registered into the database, you should periodically execute `kI'. `kI' updates the database -incrementally by default. This method is fast but garbages are -left. So, sometime you should type `C-ukI' to update the database -fully. +incrementally by default. This method is fast but garbage is left. So, +sometime you should type `C-ukI' to update the database fully. To make dialog, type `V' on the current message. This command displays him, his ancestors, and his children only. His brothers and so on are @@ -4327,7 +4326,7 @@ follows: (defvar mew-prog-msexcel-ext "soffice") (defvar mew-prog-mspowerpoint-ext "soffice") -If you want to set it to "xdg-open", for instace, do like this: +If you want to set it to "xdg-open", for instance, do like this: (setq mew-prog-msword-ext "xdg-open") (setq mew-prog-msexcel-ext "xdg-open") @@ -4742,8 +4741,8 @@ variables to control POP. means the authentication with APOP. `t' means SASL according to `mew-pop-auth-list'. The default is `'apop'. `mew-pop-auth-list' - A list of SASL methods in the preferred order. Currently, - "CRAM-MD5" can be used. + A list of SASL methods in the preferred order. Currently, + "XOAUTH2", "CRAM-MD5" and "PLAIN" can be used. `mew-pop-delete' Whether or not delete messages on a POP server after retrieval by POP. If `t', delete the messages. If `nil', retain the messages. @@ -4789,7 +4788,7 @@ following variables to control IMAP. `mew-imap-auth-list'. The default is `t'. `mew-imap-auth-list' A list of SASL methods in the preferred order. Currently, - "CRAM-MD5" and "LOGIN" can be used. + "XOAUTH2", "CRAM-MD5" and "LOGIN" can be used. `mew-imap-delete' Whether or not delete messages on an IMAP server after retrieval by IMAP. If `t', delete the messages. If `nil', retain the @@ -4861,11 +4860,9 @@ password. This section describes following variables to control SMTP. `mew-smtp-server' The name of your SMTP server. `mew-smtp-port' - The port for SMTP. When an absolute pathname is specified, it - will be used as a Unix domain socket. -`mew-smtp-submission-family' - The address family to be used for the SMTP server. The default - value is 'ipv4. + The port for SMTP. The value was originally "smtp" but is + currently "submission". When an absolute pathname is specified, + it will be used as a Unix domain socket. `mew-smtp-ssh-server' The name of SSH server which forwards the SMTP port. `mew-smtp-ssl' @@ -4879,7 +4876,7 @@ password. This section describes following variables to control SMTP. address is automatically set. `mew-smtp-auth-list' A list of SMTP AUTH methods in the preferred order. Currently, - "CRAM-MD5", "PLAIN", and "LOGIN" can be used. + "XOAUTH2", "CRAM-MD5", "PLAIN" and "LOGIN" can be used. `mew-smtp-helo-domain' An e-mail domain to tell a SMTP server with HELO/EHLO. The default is "localhost". @@ -4901,21 +4898,11 @@ A value of Message-Id: for SMTP is created by the following rule: message-id = *random*.smtp-msgid-user@smtp-msgid-domain -If you want to use Message Submission (SMTP for submission whose port -number is 587), configure as follows: - - (setq mew-smtp-port "submission") - If you want to use a Unix domain socket to connect MTA, configure as follows: (setq mew-smtp-port "/var/run/msp.sock") -If you want to use IPv6 as the transport protocol to connect MTA, -configure as follows: - - (setq mew-smtp-submission-family 'ipv6) - Please refer also to TLS/SSL (*Note TLS/SSL::). Some SMTP servers are mis-configured. They requests authentication @@ -5087,9 +5074,9 @@ The format of configuration In Mew 6.1, configuration format of "mew.el" is improved. You can use a new format as well as the old format. - - In the old format, sometime "." appears. In the new fomat, no "." - appears at all. For instance, you can write ("foo" "bar") instead - of ("foo" . "bar"). + - In the old format, sometime "." appears. In the new format, no + "." appears at all. For instance, you can write ("foo" "bar") + instead of ("foo" . "bar"). - In the old format, a numeric port is specified as string. An example is "25". In the new format, you can write it as integer. An example is 25. The string is still valid. An example @@ -5263,8 +5250,8 @@ GnuTLS and "stunnel" support the both, as of 2020, SSL is considered as a "should not use" protocol because a lot of security flaws were found in the protocol. -For this histrical reason, there are still variables and functions for -TLS functionality with "ssl" keyword in Mew. +For this historical reason, there are still variables and functions +for TLS functionality with "ssl" keyword in Mew. To enable TLS functionality, you have to configure variables for "stunnel" program or GnuTLS library, and then ones for enabling TLS of @@ -5423,15 +5410,17 @@ STARTTLS will be enabled when the port number for normal TCP connections of the protocol is set to the same as the port number for TLS connections. Configure as follows for POP, for instance: - ;; A default value of mew-pop-port is "pop3" (110) (setq mew-pop-ssl t) - (setq mew-pop-ssl-port mew-pop-port) ;; The default is "pop3s" (995) + ;; The default value of mew-pop-ssl-port is "pop3s" (995) + ;; The default value of mew-pop-port is "pop3" (110) + (setq mew-pop-ssl-port mew-pop-port) The following is an example to enable STARTTLS for Message Submission. - (setq mew-smtp-port "submission") ;; The default is "smtp" (25) (setq mew-smtp-ssl t) - (setq mew-smtp-ssl-port mew-smtp-port) ;; The default is 465 + ;; The default value of mew-smtp-ssl-port is "submissions" (465) + ;; The default value of mew-smtp-port is "submission" (587) + (setq mew-smtp-ssl-port mew-smtp-port)  @@ -5629,7 +5618,7 @@ To save edited message to a new message, type `C-cC-c' or you are asked a folder to save the new message. Please take care that you may confuse this command as retry sending -(*Note sum-write::). Retry seinding is to send a message after editing +(*Note sum-write::). Retry sending is to send a message after editing while Edit mode is to save a message after modifying. The following is summary of commands relating to Edit mode. To enter @@ -5825,7 +5814,7 @@ Copyright Mew conforms the following copyright. -Copyright (C) 1994-2025 Mew developing team. +Copyright (C) 1994-2026 Mew developing team. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -6091,7 +6080,6 @@ Variable Index * mew-smtp-ssl-port: TLS/SSL2. (line 5) * mew-smtp-ssl-port: smtp. * mew-smtp-ssl: smtp. -* mew-smtp-submission-family: smtp. * mew-smtp-user: smtp. * mew-sort-default-key-alist: sorting. (line 5) * mew-sort-default-key: sorting. (line 5) @@ -6448,102 +6436,102 @@ Node: Viewing16448 Node: singlepart17744 Node: multipart19233 Node: analysis22464 -Node: cipher-viewing26413 -Node: retrieving31439 -Node: moving35448 -Node: sum-write38096 -Node: features40473 -Node: status-update42953 -Node: invalid43978 -Node: Composing46178 -Node: header48227 -Node: cheader49227 -Node: addr-comp51029 -Node: addrbook52907 -Node: auto-alias56100 -Node: addr-comp157821 -Node: addr-comp260243 -Node: send62460 -Node: cite65553 -Node: mime-comp67799 -Node: charset-guess75147 -Node: longline78834 -Node: reply80662 -Node: forward84480 -Node: resend85353 -Node: shortcut87426 -Node: mark-b-comp92868 -Node: pgp-key95833 -Node: anonymous96714 -Node: Marks98281 -Node: unread mark99925 -Node: delete mark101426 -Node: refile mark103669 -Node: target mark105280 -Node: escape mark106911 -Node: unmark107766 -Node: mark change108745 -Node: sync110189 -Node: off-line111367 -Node: mew-mark113217 -Node: Refile113939 -Node: by-folder115799 -Node: by-alist117696 -Node: by-thread119776 -Node: by-from-folder120632 -Node: by-from121989 -Node: by-newsgroups123567 -Node: by-default123902 -Node: guess-rule124356 -Node: auto-refile126142 -Node: copy-msg128354 -Node: Virtual129622 -Node: selection131282 -Node: sorting131977 -Node: dialog133820 -Node: search134951 -Node: condition136116 -Node: dbsearch138371 -Node: keyword139595 -Node: thread140452 -Node: thread-op141712 -Node: Quit143882 -Node: Customize144431 -Node: summary-mode145246 -Node: message-mode149406 -Node: draft-mode153160 -Node: charset156127 -Node: highlight158333 -Node: hooks161309 -Node: pop165774 -Node: imap167575 -Node: nntp169260 -Node: smtp170760 -Node: config173815 -Node: config2179759 -Node: custom-misc181275 -Node: Tips182296 -Node: region183059 -Node: visiting183749 -Node: SSH184279 -Node: TLS/SSL185245 -Node: Stunnel186270 -Node: GnuTLS188308 -Node: TLS/SSL2191514 -Node: spam193041 -Node: spam2195337 -Node: addr-warn196668 -Node: biff197796 -Node: edit198554 -Node: xauth2199825 -Node: Convention200961 -Node: Implementation203031 -Node: Avail205394 -Node: obtain205701 -Node: ml205993 -Node: Copyright206269 -Node: Privacy Policy208218 -Node: Variable Index208473 -Node: Key Index224793 +Node: cipher-viewing26407 +Node: retrieving31433 +Node: moving35442 +Node: sum-write38090 +Node: features40467 +Node: status-update42947 +Node: invalid43972 +Node: Composing46172 +Node: header48221 +Node: cheader49221 +Node: addr-comp51023 +Node: addrbook52901 +Node: auto-alias56094 +Node: addr-comp157815 +Node: addr-comp260237 +Node: send62454 +Node: cite65548 +Node: mime-comp67794 +Node: charset-guess75142 +Node: longline78829 +Node: reply80657 +Node: forward84475 +Node: resend85348 +Node: shortcut87421 +Node: mark-b-comp92863 +Node: pgp-key95828 +Node: anonymous96709 +Node: Marks98276 +Node: unread mark99920 +Node: delete mark101421 +Node: refile mark103665 +Node: target mark105276 +Node: escape mark106907 +Node: unmark107762 +Node: mark change108741 +Node: sync110185 +Node: off-line111364 +Node: mew-mark113214 +Node: Refile113936 +Node: by-folder115796 +Node: by-alist117693 +Node: by-thread119773 +Node: by-from-folder120629 +Node: by-from121986 +Node: by-newsgroups123564 +Node: by-default123899 +Node: guess-rule124353 +Node: auto-refile126139 +Node: copy-msg128351 +Node: Virtual129619 +Node: selection131278 +Node: sorting131973 +Node: dialog133816 +Node: search134945 +Node: condition136110 +Node: dbsearch138365 +Node: keyword139589 +Node: thread140446 +Node: thread-op141706 +Node: Quit143876 +Node: Customize144425 +Node: summary-mode145240 +Node: message-mode149400 +Node: draft-mode153155 +Node: charset156122 +Node: highlight158328 +Node: hooks161304 +Node: pop165769 +Node: imap167594 +Node: nntp169290 +Node: smtp170790 +Node: config173521 +Node: config2179465 +Node: custom-misc180983 +Node: Tips182004 +Node: region182767 +Node: visiting183457 +Node: SSH183987 +Node: TLS/SSL184953 +Node: Stunnel185979 +Node: GnuTLS188017 +Node: TLS/SSL2191223 +Node: spam192827 +Node: spam2195123 +Node: addr-warn196454 +Node: biff197582 +Node: edit198340 +Node: xauth2199610 +Node: Convention200746 +Node: Implementation202816 +Node: Avail205179 +Node: obtain205486 +Node: ml205778 +Node: Copyright206054 +Node: Privacy Policy208003 +Node: Variable Index208258 +Node: Key Index224540  End tag table diff --git a/elpa/mew-20251127.544/mew.ja.info b/elpa/mew-20260425.817/mew.ja.info similarity index 99% rename from elpa/mew-20251127.544/mew.ja.info rename to elpa/mew-20260425.817/mew.ja.info index 45c6f1a7..365ce1c4 100644 --- a/elpa/mew-20251127.544/mew.ja.info +++ b/elpa/mew-20260425.817/mew.ja.info @@ -15,14 +15,14 @@ END-INFO-DIR-ENTRY  File: mew.ja.info, Node: Top, Next: Overview, Prev: (dir), Up: (dir) -Mew 6.10 マニュアル +Mew 6.11 マニュアル ******************* 山本和彦 作成 1996/02/19 - 更新 2025/07/07 + 更新 2026/04/16 -このマニュアルでは、Mew バージョン 6.10 について解説します。このマニュ +このマニュアルでは、Mew バージョン 6.11 について解説します。このマニュ アルの他に、Mew に関する有益な情報は Mew の公式ホームページ (http://www.Mew.org/)から得られるかもしれません。 @@ -81,7 +81,7 @@ File: mew.ja.info, Node: characteristic, Next: Emacsen, Prev: Overview, Up: Over Mew の特長 ========== -Mew バージョン 6.10 の特長を以下に示します。 +Mew バージョン 6.11 の特長を以下に示します。 - 複雑な構造を持つメッセージを簡単に表示できます。メッセージを表示 する作業は、`SPC' を押すだけです。 @@ -1217,7 +1217,7 @@ File: mew.ja.info, Node: Composing, Next: header, Prev: invalid, Up: Top To: Subject: From: Kazu Yamamoto - X-Mailer: Mew version 6.10 on Emacs 29.4 + X-Mailer: Mew version 6.11 on Emacs 30.2 ---- これを Draft モードといいます。Draft モードにおいて、"----" より上をヘッ @@ -1700,7 +1700,7 @@ File: mew.ja.info, Node: send, Next: cite, Prev: addr-comp2, Up: Composing To: pooh Subject: 明日の日曜日 From: Piglet - X-Mailer: Mew version 6.10 on Emacs 29.4 + X-Mailer: Mew version 6.11 on Emacs 30.2 ---- 明日の日曜日、遊びませんか？ @@ -1714,7 +1714,7 @@ File: mew.ja.info, Node: send, Next: cite, Prev: addr-comp2, Up: Composing To: winnie-the-pooh@example.net Subject: =?iso-2022-jp?B?GyRCTEBGfCRORnxNS0Z8GyhC?= From: Piglet - X-Mailer: Mew version 6.10 on Emacs 29.4 + X-Mailer: Mew version 6.11 on Emacs 30.2 Mime-Version: 1.0 Content-Type: Text/Plain; charset=iso-2022-jp Content-Transfer-Encoding: 7bit @@ -1842,7 +1842,7 @@ File: mew.ja.info, Node: mime-comp, Next: charset-guess, Prev: cite, Up: Composi To: mew-dist Subject: ここがヘッダ From: Kazu Yamamoto - X-Mailer: Mew version 6.10 on Emacs 29.4 + X-Mailer: Mew version 6.11 on Emacs 30.2 ---- 本文だよ。 @@ -4612,7 +4612,7 @@ Mew では、メッセージを受信する際に POP を利用できます。 は `'apop'。 `mew-pop-auth-list' SASL で利用する認証方式のリスト。優先順位の高い順に並べる。現在、 - "CRAM-MD5" が利用可能。 + "XOAUTH2", "CRAM-MD5", "PLAIN" が利用可能。 `mew-pop-delete' POP サーバからメッセージを取得後、POP サーバにあるメッセージを削 除するか否か。`t' なら削除。`nil' なら削除しない。数値 N なら、最 @@ -4655,7 +4655,7 @@ Mew では、メッセージを受信する際に IMAP を利用できます。 `mew-imap-auth-list' に基づいた SASL を意味する。初期値は `t'。 `mew-imap-auth-list' SASL で利用する認証方式のリスト。優先順位の高い順に並べる。現在、 - "CRAM-MD5" と "LOGIN" が利用可能。 + "XOAUTH2", "CRAM-MD5", "LOGIN" が利用可能。 `mew-imap-delete' IMAP サーバからメッセージを取得後、IMAP サーバにあるメッセージを 削除するか否か。`t' なら削除。`nil' なら削除しない。数値 N なら、 @@ -4727,10 +4727,9 @@ Mew では、メッセージを送信する際に SMTP を利用します。SMTP `mew-smtp-server' SMTP サーバの名前。 `mew-smtp-port' - SMTP ポート番号。絶対パス名を指定すると Unix ドメインソケットを使 - 用する。 -`mew-smtp-submission-family' - SMTP サーバと接続する際に用いるアドレスファミリ。初期値は 'ipv4。 + SMTP ポート番号。以前は "smtp"だったが、現在は "submission"に変更 + されている。絶対パス名を指定すると Unix ドメインソケットを使用す + る。 `mew-smtp-ssh-server' SSH 経由でメッセージを送る際の SSH サーバの名前。 `mew-smtp-ssl' @@ -4743,7 +4742,7 @@ Mew では、メッセージを送信する際に SMTP を利用します。SMTP メールアドレスに設定される。 `mew-smtp-auth-list' SMTP AUTH で利用する認証方式のリスト。優先順位の高い順に並べる。 - 初期値は、'("CRAM-MD5" "PLAIN" "LOGIN")。 + 初期値は、'("XOAUTH2" "CRAM-MD5" "PLAIN" "LOGIN")。 `mew-smtp-helo-domain' SMTP HELO コマンドで使われるサーバ名。初期値は "localhost"。 `mew-smtp-mail-from' @@ -4764,21 +4763,11 @@ Mew では、メッセージを送信する際に SMTP を利用します。SMTP message-id = *random*.smtp-msgid-user@smtp-msgid-domain -Message Submission (ポート番号が 587 である送信用の SMTP)を使いたい場 -合は、以下のように設定して下さい。 - - (setq mew-smtp-port "submission") - 送信サーバとの接続に Unix ドメインソケットを使いたい場合は、以下のように `mew-smtp-port' に絶対パス名を設定して下さい。 (setq mew-smtp-port "/var/run/msp.sock") -送信サーバとの接続に IPv6 を使いたい場合は、以下のように -`mew-smtp-submission-family' に 'ipv6 を設定して下さい。 - - (setq mew-smtp-submission-family 'ipv6) - TLS/SSL (*Note TLS/SSL::) の章も参考にして下さい。 SMTP サーバの中には、認証なし、つまりパスワードを送られるとエラーと見 @@ -4908,7 +4897,7 @@ Draft モードでは、ケースを自動的に設定することもできま `mew-case-guess-when-composed' この変数が `t' の場合、メッセージが作成されたときに、 `mew-case-guess-alist' に従ってケースが設定される。初期値は - `nil' + `nil'。 `mew-case-guess-when-replied' この変数が `t' の場合、返答によって草稿が用意されたときに、 `mew-case-guess-when-replied-alist' に従ってケースが設定される。 @@ -5258,15 +5247,17 @@ STARTTLS は、プロトコルの通常のポート番号と TLS 用のポート するように設定することで有効になります。たとえば、POP では以下のように します。 - ;; A default value of mew-pop-port is "pop3" (110) (setq mew-pop-ssl t) - (setq mew-pop-ssl-port mew-pop-port) ;; The default is "pop3s" (995) + ;; The default value of mew-pop-ssl-port is "pop3s" (995) + ;; The default value of mew-pop-port is "pop3" (110) + (setq mew-pop-ssl-port mew-pop-port) 以下は、Message Submission で STARTTLS を有効にするための設定例です。 - (setq mew-smtp-port "submission") ;; The default is "smtp" (25) (setq mew-smtp-ssl t) - (setq mew-smtp-ssl-port mew-smtp-port) ;; The default is 465 + ;; The default value of mew-smtp-ssl-port is "submissions" (465) + ;; The default value of mew-smtp-port is "submission" (587) + (setq mew-smtp-ssl-port mew-smtp-port)  @@ -5653,7 +5644,7 @@ File: mew.ja.info, Node: Copyright, Next: Privacy Policy, Prev: ml, Up: Top Mew は以下の著作権に従います。 -Copyright (C) 1994-2025 Mew developing team. +Copyright (C) 1994-2026 Mew developing team. All rights reserved. 変更の有無にかかわらず、ソースおよびバイナリ形式の再配布および利用は、 @@ -5918,7 +5909,6 @@ File: mew.ja.info, Node: Variable Index, Next: Key Index, Prev: Privacy Policy, * mew-smtp-ssl-port: TLS/SSL2. (line 5) * mew-smtp-ssl-port: smtp. * mew-smtp-ssl: smtp. -* mew-smtp-submission-family: smtp. * mew-smtp-user: smtp. * mew-sort-default-key-alist: sorting. (line 5) * mew-sort-default-key: sorting. (line 5) @@ -6343,34 +6333,34 @@ Node: charset104868 Node: highlight106494 Node: hooks108546 Node: pop111952 -Node: imap113110 -Node: nntp114197 -Node: smtp115392 -Node: config117550 -Node: config2122078 -Node: custom-misc123234 -Node: Tips123951 -Node: region124643 -Node: visiting125152 -Node: SSH125514 -Node: TLS/SSL126102 -Node: Stunnel126843 -Node: GnuTLS128181 -Node: TLS/SSL2130005 -Node: spam131091 -Node: spam2132847 -Node: addr-warn133963 -Node: biff134736 -Node: edit135218 -Node: xauth2135973 -Node: Convention136783 -Node: Implementation137825 -Node: Avail139284 -Node: obtain139533 -Node: ml139757 -Node: Copyright139936 -Node: Privacy Policy140944 -Node: Variable Index141142 -Node: Key Index157449 +Node: imap113130 +Node: nntp114227 +Node: smtp115422 +Node: config117327 +Node: config2121856 +Node: custom-misc123012 +Node: Tips123729 +Node: region124421 +Node: visiting124930 +Node: SSH125292 +Node: TLS/SSL125880 +Node: Stunnel126621 +Node: GnuTLS127959 +Node: TLS/SSL2129783 +Node: spam130946 +Node: spam2132702 +Node: addr-warn133818 +Node: biff134591 +Node: edit135073 +Node: xauth2135828 +Node: Convention136638 +Node: Implementation137680 +Node: Avail139139 +Node: obtain139388 +Node: ml139612 +Node: Copyright139791 +Node: Privacy Policy140799 +Node: Variable Index140997 +Node: Key Index157266  End tag table -- 2.47.3