From: yamaoka Date: Tue, 11 Jun 2002 23:59:36 +0000 (+0000) Subject: * gnus-vers.el (gnus-revision-number): Increment to 02. X-Git-Tag: t-gnus-6_15_7-02-quimby~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f8854d2d63092f9543fdd531a12a25e727e9a317;p=elisp%2Fgnus.git- * gnus-vers.el (gnus-revision-number): Increment to 02. * gnus-msg.el (gnus-message-setup-hook): Default to nil. (gnus-setup-message): Run `gnus-maybe-setup-default-charset'. (gnus-summary-supersede-article): Don't bind the value for `gnus-message-setup-hook'. (gnus-summary-resend-bounced-mail): Ditto. * dns.el (dns-make-network-process): Bind `default-process-coding-system' to `(binary . binary)'; bind `program-coding-system-alist' to nil. * gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Bind `input-coding-system' and `output-coding-system' to `binary'. * gnus-namazu.el (gnus-namazu/call-namazu): Bind `input-coding-system' and `output-coding-system' to the velue of `gnus-namazu-coding-system'. * imap.el (imap-ssl-open): Don't bind the values for `input-coding-system' and `output-coding-system'. * nnmaildir.el (nnmaildir-request-scan): Bind `output-coding-system' to the value of `nnheader-file-coding-system'; bind `file-coding-system' to nil. (nnmaildir-request-rename-group): Ditto. (nnmaildir-request-replace-article): Ditto. (nnmaildir-request-accept-article): Ditto. (nnmaildir-request-set-mark): Ditto. * nnmbox.el (nnmbox-save-buffer): Simplify the source code. * nnrss.el (nnrss-read-server-data): Bind `input-coding-system' to `binary'. (nnrss-save-server-data): Bind `output-coding-system' to `binary'. (nnrss-read-group-data): Bind `input-coding-system' to `binary'. (nnrss-save-group-data): Bind `output-coding-system' to `binary'. And synch with Oort Gnus. --- diff --git a/ChangeLog b/ChangeLog index 70e25f5..7e03250 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,43 @@ +2002-06-11 Katsumi Yamaoka + + * lisp/gnus-vers.el (gnus-revision-number): Increment to 02. + + * lisp/gnus-msg.el (gnus-message-setup-hook): Default to nil. + (gnus-setup-message): Run `gnus-maybe-setup-default-charset'. + (gnus-summary-supersede-article): Don't bind the value for + `gnus-message-setup-hook'. + (gnus-summary-resend-bounced-mail): Ditto. + + * lisp/dns.el (dns-make-network-process): Bind + `default-process-coding-system' to `(binary . binary)'; bind + `program-coding-system-alist' to nil. + + * lisp/gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Bind + `input-coding-system' and `output-coding-system' to `binary'. + + * lisp/gnus-namazu.el (gnus-namazu/call-namazu): Bind + `input-coding-system' and `output-coding-system' to the velue of + `gnus-namazu-coding-system'. + + * lisp/imap.el (imap-ssl-open): Don't bind the values for + `input-coding-system' and `output-coding-system'. + + * lisp/nnmaildir.el (nnmaildir-request-scan): Bind + `output-coding-system' to the value of + `nnheader-file-coding-system'; bind `file-coding-system' to nil. + (nnmaildir-request-rename-group): Ditto. + (nnmaildir-request-replace-article): Ditto. + (nnmaildir-request-accept-article): Ditto. + (nnmaildir-request-set-mark): Ditto. + + * lisp/nnmbox.el (nnmbox-save-buffer): Simplify the source code. + + * lisp/nnrss.el (nnrss-read-server-data): Bind + `input-coding-system' to `binary'. + (nnrss-save-server-data): Bind `output-coding-system' to `binary'. + (nnrss-read-group-data): Bind `input-coding-system' to `binary'. + (nnrss-save-group-data): Bind `output-coding-system' to `binary'. + 2002-06-07 Katsumi Yamaoka * lisp/pop3.el: Add a comment for the use of `ssl' or `tls' diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5284f1a..cf58f25 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,17 @@ +2002-06-11 Josh Huber + + * gnus-start.el (gnus-dribble-enter): Don't call set-window-point anymore + * mml2015.el (mml2015-mailcrypt-encrypt): Accept optional argument + to sign while encrypting. + +2002-06-11 Simon Josefsson + + * gnus-int.el (gnus-request-move-article): Agent expire article if + successfuly moved. + + * nnweb.el (nnweb-google-create-mapping): Honors the value of + nnweb-max-hits. From Niklas Morberg . + 2002-06-10 Simon Josefsson * gnus-int.el (gnus-request-expire-articles): Fix last change? @@ -16,12 +30,12 @@ * message.el (message-send-mail-with-sendmail): Improve error message. -2002-06-06 Kai Gro,b_(Bjohann +2002-06-06 Kai Großjohann * message.el (message-interactive): Change default from nil to t. Better to be safe than to be fast. -2002-06-05 Kai Gro,b_(Bjohann +2002-06-05 Kai Großjohann * message.el (message-send-mail-with-sendmail): Check return value from call-process-region. @@ -45,7 +59,7 @@ * nnmail.el (nnmail-mail-splitting-decodes): New variable. (nnmail-article-group): Use it. -2002-05-30 Kai Gro,b_(Bjohann +2002-05-30 Kai Großjohann * gnus-msg.el (gnus-inews-yank-articles): Merge split header lines so that code reading them won't be surprised. From Jesper Harder @@ -66,7 +80,7 @@ * gnus-group.el (gnus-group-line-format): Doc fix. -2002-05-28 Kai Gro,b_(Bjohann +2002-05-28 Kai Großjohann * gnus-msg.el (gnus-inews-yank-articles): Unfold headers of original article before yanking. From Jesper Harder @@ -176,7 +190,7 @@ * nndoc.el (nndoc-mime-digest-type-p): Set proper file-end. -2002-05-08 Kai Gro,A_(Bjohann +2002-05-08 Kai Großjohann From Florian Weimer . * gnus.el (subscribed): New group parameter. @@ -191,13 +205,13 @@ frobbing the alist directly. * mml.el (mml-generate-mime-1): Use accessor function. -2002-05-08 Kai Gro,A_(Bjohann +2002-05-08 Kai Großjohann * gnus-art.el (gnus-article-mode-syntax-table): Specify matching parenthesis for "<" and ">". Suggested by Andreas Schwab . -2002-05-07 Kai Gro,A_(Bjohann +2002-05-07 Kai Großjohann * nnmail.el (nnmail-cache-insert): Prefer group-art over group when intuiting the group the message is written to. From Josh @@ -324,7 +338,7 @@ 2002-04-27 ShengHuo ZHU * gnus-msg.el (gnus-article-mail): Use gnus-msg-mail instead. - Trivial change from Karl Pfl,Ad(Bsterer . + Trivial change from Karl Pflästerer . 2002-04-27 Katsumi Yamaoka @@ -363,7 +377,7 @@ * gnus-art.el (article-unsplit-urls): Allow trailing SPC. -2002-04-24 Kai Gro,A_(Bjohann +2002-04-24 Kai Großjohann From Dan Christensen . * nndoc.el (nndoc-type-alist, nndoc-lanl-gov-announce-type-p) @@ -386,13 +400,13 @@ (gnus-netrc-get, gnus-netrc-machine, gnus-parse-netrc): Aliased to new code in netrc.el. -2002-04-23 Kai Gro,A_(Bjohann +2002-04-23 Kai Großjohann * gnus-msg.el (gnus-summary-resend-message-edit): Remove message-ignored-resent-headers, too. From Matthieu Moy . -2002-04-22 Bj,Av(Brn Torkelsson +2002-04-22 Björn Torkelsson * gnus-srvr.el (gnus-server-browse-in-group-buffer): it is a boolean not a string @@ -455,7 +469,7 @@ * message.el (message-gen-unsubscribed-mft): accept a prefix argument so CC can be included with C-u C-c C-f C-a -2002-04-17 Kai Gro,A_(Bjohann +2002-04-17 Kai Großjohann From Ted Zlatanov . * spam.el (spam-whitelist, spam-blacklist, spam-enter-whitelist): @@ -506,7 +520,7 @@ . * smime.el (smime-CA-directory): Fix doc. Thanks to Arne - J,Ax(Brgensen . + Jørgensen . (smime-sign-buffer): Work in XEmacs. Thanks to Nicolas Kowalski . (smime-decrypt-buffer): Ditto. @@ -606,9 +620,9 @@ * gnus-sum.el (gnus-summary-dummy-line-format): * gnus.el (gnus-summary-line-format): Fixing links to Info. - Trivial change from Bj,Av(Brn Torkelsson . + Trivial change from Björn Torkelsson . -2002-03-29 Kai Gro,A_(Bjohann +2002-03-29 Kai Großjohann * gnus-sum.el (gnus-summary-move-article) (gnus-summary-copy-article): Mention `gnus-move-split-methods' in @@ -642,7 +656,7 @@ (nnmaildir--edit-prep): New function. (Local Variables): Use it. -2002-03-26 Pavel@Janik.cz (Pavel Jan,Bm(Bk) +2002-03-26 Pavel@Janik.cz (Pavel Janík) * gnus-sum.el (gnus-summary-make-menu-bar): Fix typo. @@ -692,7 +706,7 @@ tags. * gnus-sum.el (gnus-print-buffer): Remove gnus-decoration. - Trivial change from lorentey@elte.hu (L,Bu(Brentey K,Ba(Broly) + Trivial change from lorentey@elte.hu (Lőrentey Károly) 2002-03-20 Katsumi Yamaoka @@ -708,7 +722,7 @@ * gnus-group.el (gnus-group-process-prefix): Make sure there is a mark. -2002-03-19 Kai Gro,A_(Bjohann +2002-03-19 Kai Großjohann * gnus-sum.el (gnus-sum-thread-tree-root) (gnus-sum-thread-tree-single-indent) @@ -725,10 +739,10 @@ 2002-03-13 Simon Josefsson * pop3.el (pop3-open-server): Revert multibyte change. From - Pavel@Janik.cz (Pavel Jan,Bm(Bk). + Pavel@Janik.cz (Pavel Janík). * message.el (message-send-mail-with-qmail): Make it work. From - Pavel@Janik.cz (Pavel Jan,Bm(Bk). + Pavel@Janik.cz (Pavel Janík). 2002-03-13 Josh Huber @@ -1292,7 +1306,7 @@ * nnweb.el (nnweb-google-parse-1): Use a correct format of date. * gnus-agent.el (gnus-agent-summary-make-menu-bar): Fix typo. - From Stefan Reich,Av(Br . + From Stefan Reichör . * nnagent.el (nnagent-request-expire-articles): Don't delete files. @@ -1335,7 +1349,7 @@ (gnus-article-reply-with-original): Ditto. * binhex.el (binhex-decoder-switches): Fix doc. From - Pavel@Janik.cz (Pavel Jan,Bm(Bk). + Pavel@Janik.cz (Pavel Janík). 2002-02-04 ShengHuo ZHU @@ -1853,7 +1867,7 @@ (gnus-article-wash-function): New variable. (gnus-article-wash-html-with-w3m): New function. -2002-01-20 Bj,Av(Brn Torkelsson +2002-01-20 Björn Torkelsson * dgnushack.el (dgnushack-compile): Compile smiley-ems for XEmacs. @@ -2202,7 +2216,7 @@ * flow-fill.el (fill-flowed-display-column) (fill-flowed-encode-columnq): New variables. Suggested by - Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Gro,A_(Bjohann). + Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann). (fill-flowed-encode, fill-flowed): Use them. * message.el (message-send-news, message-send-mail): Use @@ -2373,7 +2387,7 @@ behavior of quit-config. * message.el (message-make-from): Don't quote fullname. - From: Bj,Ax(Brn Mork + From: Bjørn Mork * gnus-group.el (gnus-group-suspend): Don't kill message buffers. From: @@ -2658,7 +2672,7 @@ * gnus-agent.el (gnus-agent-fetch-session): Run hook. -2002-01-03 Kai Gro,A_(Bjohann +2002-01-03 Kai Großjohann * gnus-start.el (gnus-read-init-file): Don't force coding system for ~/.gnus. From Dave Love . @@ -2767,7 +2781,7 @@ (gnus-picon-transform-address): Insert spec backward, due to the incompatibility of gnus-xmas-put-image. -2002-01-02 Pavel Jan,Bm(Bk +2002-01-02 Pavel Janík * gnus-fun.el (gnus-convert-pbm-to-x-face-command): Doc fix. @@ -3199,7 +3213,7 @@ * gnus-win.el (gnus-configure-windows-hook): New hook. -2001-12-29 Sascha L,A|(Bdecke +2001-12-29 Sascha Lüdecke * gnus-win.el (gnus-configure-windows): Minimize tree buffer. @@ -3304,7 +3318,7 @@ * gnus-art.el, gnus-picon.el, gnus-sieve.el, gnus-sum.el: * gnus-xmas.el, imap.el, mailcap.el, mm-util.el, nnfolder.el: * nnheader.el, nnmail.el: Nil/NIL vs. nil. - From Pavel Jan,Bm(Bk + From Pavel Janík 2001-12-20 15:00:00 ShengHuo ZHU @@ -3409,7 +3423,7 @@ * mm-url.el (executable-find): autoload. -2001-12-12 Pavel Jan,Bm(Bk +2001-12-12 Pavel Janík * gnus-mlspl.el (gnus-group-split-fancy): Doc fix (add reference to variable, follow doc-string conventions). @@ -3619,7 +3633,7 @@ * message.el (message-tab-body-function): Set to nil. (message-tab): Use text-mode-map or global-map. - Suggested by Kai Gro,A_(Bjohann . + Suggested by Kai Großjohann . 2001-11-30 Simon Josefsson @@ -3633,7 +3647,7 @@ * gnus-agent.el (gnus-agent-write-active): Make sure sym is a cons of integers. -2001-11-29 Kai Gro,A_(Bjohann +2001-11-29 Kai Großjohann * message.el (message-newgroups-header-regexp) (message-completion-alist, message-tab-body-function): Use @@ -3716,7 +3730,7 @@ (gnus-summary-limit-to-extra): Ditto. (gnus-summary-find-matching): Support not-matching argument. -2001-11-25 Kai Gro,A_(Bjohann +2001-11-25 Kai Großjohann * message.el (message-wash-subject): Use `insert' rather than `insert-string', which is deprecated. @@ -3870,7 +3884,7 @@ * mml2015.el: Mention RFC 3156. - * mml1991.el: New file. From Sascha L,A|(Bdecke . + * mml1991.el: New file. From Sascha Lüdecke . 2001-11-12 13:00:00 ShengHuo ZHU @@ -3888,10 +3902,10 @@ 2001-11-09 Simon Josefsson - * gnus.el (gnus-local-domain): Fix doc. From Pavel Jan,Bm(Bk + * gnus.el (gnus-local-domain): Fix doc. From Pavel Janík . -2001-11-09 Kai Gro,A_(Bjohann +2001-11-09 Kai Großjohann * message.el (message-point-in-header-p): New function. (message-do-auto-fill): Use it. @@ -4234,7 +4248,7 @@ (nnweb-type-definition): Add google as alias of dejanews. (nnweb-google-parse-1): Forward 1 line. -2001-10-26 Kai Gro,A_(Bjohann +2001-10-26 Kai Großjohann * gnus-msg.el (gnus-summary-mail-forward): Doc fix: add pointer to variable `message-forward-ignored-headers'. @@ -4270,7 +4284,7 @@ * gnus-msg.el (gnus-extended-version): Include system-configuration. - Suggested by Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Gro,A_(Bjohann). + Suggested by Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann). 2001-10-22 Per Abrahamsen @@ -4290,7 +4304,7 @@ (nnimap-split-inbox, nnimap-expunge-search-string) (nnimap-importantize-dormant): Remove "*" from doc. -2001-10-20 Kai Gro,A_(Bjohann +2001-10-20 Kai Großjohann * gnus-sum.el (gnus-summary-limit-to-score): Prompt for score if not supplied via prefix arg. From Lisp, make arg mandatory. @@ -4301,7 +4315,7 @@ * message.el (message-do-auto-fill): Avoid calling 'rfc822-goto-eoh'. -2001-10-20 Kai Gro,A_(Bjohann +2001-10-20 Kai Großjohann From Paul Jarc . * message.el (message-get-reply-headers): Restructure the logic @@ -4394,7 +4408,7 @@ * gnus-msg.el (gnus-post-method): Changed two instances of `active' to `current' and one `null' to `not'. -2001-10-16 Kai Gro,A_(Bjohann +2001-10-16 Kai Großjohann From Katsumi Yamaoka . * message.el (message-setup-fill-variables): Use @@ -4406,7 +4420,7 @@ (mml2015-gpg-decrypt-1): Decanonicalize decrypted MIME body. (Mailcrypt seem to do this, but gpg.el doesn't.) -2001-10-16 Kai Gro,A_(Bjohann +2001-10-16 Kai Großjohann Patch by Oliver Scholz . * gnus-draft.el (gnus-draft-edit-message): Add text property @@ -4461,7 +4475,7 @@ * message.el (message-do-auto-fill): Use gnus-point-at-bol. (autoload): Add some autoloads. -2001-10-12 Kai Gro,A_(Bjohann +2001-10-12 Kai Großjohann Suggested by Oliver Scholz . * message.el (message-do-auto-fill): New function. Like @@ -4613,7 +4627,7 @@ * gnus-sum.el (gnus-summary-extract-address-component): New function. (gnus-summary-from-or-to-or-newsgroups): Optimize. -2001-09-29 Kai Gro,A_(Bjohann +2001-09-29 Kai Großjohann * message.el (message-mode-map): Keybinding for `gnus-delay-article'. (message-mode-menu): Menu item for same. @@ -4657,7 +4671,7 @@ S. Socha . 2001-09-27 11:00:00 ShengHuo ZHU - From Gerd M,Av(Bllmann . + From Gerd Möllmann . * gnus-ems.el (gnus-article-display-xface): Insert xface after previous ones. @@ -4720,7 +4734,7 @@ * gnus-group.el (gnus-group-catchup): Update expire marks in backend. Also, if ALL also set expire marks on tick/dormant. -2001-09-20 Kai Gro,A_(Bjohann +2001-09-20 Kai Großjohann * message.el (message-tab-body-function): New variable. * message.el (message-tab): Use it. @@ -4754,7 +4768,7 @@ 2001-09-17 08:00:00 ShengHuo ZHU * gnus-srvr.el (gnus-server-mode): Fix bogus fontification. - From Gerd M,Av(Bllmann . + From Gerd Möllmann . 2001-09-17 Didier Verna @@ -4793,7 +4807,7 @@ * gnus-draft.el (gnus-draft-setup): Don't set mark when there isn't an article to set it on (e.g. when you `a' in a group). -2001-09-12 Pavel Jan,Bm(Bk +2001-09-12 Pavel Janík * mm-util.el (mm-charset-synonym-alist): add windows-1250 so we can read e-mails from Microsoft Outlook users not using ISO @@ -4914,7 +4928,7 @@ * gnus-sum.el (gnus-summary-insert-line): Fix. -2001-09-06 Bj,Av(Brn Torkelsson +2001-09-06 Björn Torkelsson * gnus-sum.el: Bind g-s-t-s to "W g". * gnus-sum.el (gnus-summary-make-menu-bar): Add g-s-t-s. @@ -4931,7 +4945,7 @@ * gnus-sum.el (gnus-summary-insert-line): Insert forwarded, recent and unseen marks. -2001-09-05 Kai Gro,A_(Bjohann +2001-09-05 Kai Großjohann * nnmail.el (nnmail-split-fancy): Document `junk'. @@ -5212,7 +5226,7 @@ * gnus-spec.el (gnus-correct-substring): Stopped one character before we wanted. -2001-08-19 Pavel Jan,Bm(Bk +2001-08-19 Pavel Janík * earcon.el (earcon-auto-play): Remove unused option. @@ -5371,7 +5385,7 @@ * mml.el (mml-menu): Collapse Attach, Insert and Security submenu. -2001-08-17 Bj,Av(Brn Torkelsson +2001-08-17 Björn Torkelsson * message.el: rename "Abort Message" to "Postpone Message". Remove "Attach file as MIME" from Message menu, it's already in @@ -5427,18 +5441,18 @@ * gnus-srvr.el (gnus-server-browse-in-group-buffer): Default to nil. -2001-08-15 Kai Gro,A_(Bjohann +2001-08-15 Kai Großjohann * gnus-delay.el (gnus-delay-article): Allow "01:23" time spec, which specifies a time today or tomorrow. 2001-08-15 Simon Josefsson - From Pavel@Janik.cz (Pavel Jan,Bm(Bk) + From Pavel@Janik.cz (Pavel Janík) * gnus-agent.el (gnus-agent-make-mode-line-string) (gnus-agent-toggle-plugged): Use new API. -2001-08-14 Kai Gro,A_(Bjohann +2001-08-14 Kai Großjohann * gnus-delay.el (gnus-delay-send-drafts): Fix check whether deadline has expired. @@ -5479,7 +5493,7 @@ * gnus-spec.el (gnus-format-specs): %n is 23 chars. 2001-08-11 09:40:00 Karl Kleinpaste - Committed by Kai Gro,A_(Bjohann. + Committed by Kai Großjohann. * gnus-score.el (gnus-score-string): Fix `match' regexp for `extra' header case. @@ -5498,7 +5512,7 @@ (nndoc-oe-dbx-dissection): New function. (nndoc-oe-dbx-generate-article): New function. -2001-08-11 Kai Gro,A_(Bjohann +2001-08-11 Kai Großjohann * gnus-delay.el (gnus-delay-send-drafts): Cleaner way to check whether deadline has been reached. Patch from Dan Nicolaescu @@ -5574,7 +5588,7 @@ * gnus-group.el (gnus-group-make-menu-bar): Ditto. - * mm-uu.el (mm-uu-dissect): Autoload. From Gerd M,Av(Bllmann + * mm-uu.el (mm-uu-dissect): Autoload. From Gerd Möllmann . * gnus-art.el (gnus-output-to-file): Bind file-name-coding-system. @@ -5639,7 +5653,7 @@ before remove. (gnus-mime-security-show-details): Ditto. -2001-08-04 Kai Gro,A_(Bjohann +2001-08-04 Kai Großjohann * nnmail.el (nnmail-split-fancy-with-parent): Correct `mapconcat' syntax. Protect string-match against nil string and regexp. @@ -5726,7 +5740,7 @@ * gnus-msg.el (gnus-post-method): Refer to `gnus-parameters'. 2001-07-31 17:00:00 ShengHuo ZHU - Originally from Pavel Jan,Bm(Bk + Originally from Pavel Janík * gnus-agent.el (gnus-agent-make-mode-line-string): New function. (gnus-agent-toggle-plugged): Use it. @@ -5738,7 +5752,7 @@ (gnus-read-newsrc-el-file, gnus-save-newsrc-file) (gnus-slave-save-newsrc): Use it. -2001-07-31 Kai Gro,A_(Bjohann +2001-07-31 Kai Großjohann * gnus-delay.el (gnus-delay-initialize): Use standard define-key syntax. @@ -5834,7 +5848,7 @@ calls widen. Thanks to Christoph Conrad . -2001-07-29 Kai Gro,A_(Bjohann +2001-07-29 Kai Großjohann * gnus.el (gnus-summary-line-format): Mention `gnus-sum-thread-*' for %B spec. @@ -5926,7 +5940,7 @@ * nnheader.el (nnheader-translate-file-chars): cygwin32 is running in M$Windows too. -2001-07-26 Kai Gro,A_(Bjohann +2001-07-26 Kai Großjohann * gnus-delay.el (gnus-delay-send-drafts): Don't `error'. @@ -6009,7 +6023,7 @@ * mm-decode.el (mm-remove-part): Don't murder the current window (nil). (mm-display-external): Use display-term configure. -2001-07-24 Kai Gro,A_(Bjohann +2001-07-24 Kai Großjohann * gnus-delay.el (gnus-delay-default-hour): New variable. (gnus-delay-article): Allow specific date in YYYY-MM-DD format. @@ -6044,7 +6058,7 @@ `gnus-check-bogus-newsgroups' just after the native server is opened. -2001-07-23 Kai Gro,A_(Bjohann +2001-07-23 Kai Großjohann * nnmail.el (nnmail-do-request-post): Util function to be used by `nnchoke-request-post' for all nnmail-derived backends. @@ -6062,7 +6076,7 @@ * gnus-msg.el (gnus-setup-message): make-local-hook. -2001-07-22 Kai Gro,A_(Bjohann +2001-07-22 Kai Großjohann * gnus-delay.el (gnus-delay-article): Fix `read-string' for XEmacs. Allow more units. Submitted by Karl Kleinpaste @@ -6072,7 +6086,7 @@ whether the groups exist, check the right server based on `gnus-post-method'. -2001-07-21 Kai Gro,A_(Bjohann +2001-07-21 Kai Großjohann * gnus-delay.el: New file. @@ -6087,7 +6101,7 @@ (article-de-base64-unreadable, article-wash-html): (gnus-mime-inline-part, gnus-mime-view-part-as-charset): Ditto. -2001-07-21 Kai Gro,A_(Bjohann +2001-07-21 Kai Großjohann * nnml.el (nnml-request-post): New function. Can be used for annotations in nnml groups. @@ -6154,12 +6168,12 @@ * gnus-art.el (gnus-article-edit-mode): Use define-derived-mode. -2001-07-16 Kai Gro,A_(Bjohann +2001-07-16 Kai Großjohann * message.el (message-citation-line-function): Refer to gnus-cite-attribution-suffix. -2001-07-15 Pavel Jan,Bm(Bk +2001-07-15 Pavel Janík * gnus-art.el,...: Error convention changes. @@ -6176,7 +6190,7 @@ * gnus-setup.el (gnus-use-installed-gnus): Typo. * Cleanup files. - From Pavel@Janik.cz (Pavel Jan,Bm(Bk). + From Pavel@Janik.cz (Pavel Janík). 2001-07-13 08:00:00 ShengHuo ZHU @@ -6218,7 +6232,7 @@ (mm-display-external): Use it. Use term to display when no window-system. -2001-07-12 Bj,Av(Brn Torkelsson +2001-07-12 Björn Torkelsson * gnus-srvr.el (gnus-browse-make-menu-bar): Changed one of the Browse->Next entries to Browse->Prev @@ -6244,7 +6258,7 @@ * gnus-draft.el (gnus-draft-edit-message): Remove Date here. (gnus-draft-setup): Remove backlog. -2001-07-10 Pavel Jan,Bm(Bk +2001-07-10 Pavel Janík * gnus-logic.el, gnus-srvr.el, gnus-vm.el, nnheaderxm.el, nnoo.el: Cleanup. @@ -6658,7 +6672,7 @@ * gnus-sum.el (gnus-summary-catchup): New argument. (gnus-summary-catchup-from-here): New function. -2001-05-30 Kai Gro,A_(Bjohann +2001-05-30 Kai Großjohann * mm-view.el (mm-inline-image-xemacs): Insert newline, then move back, then insert glyph. (Before, the glyph was inserted first, @@ -6666,7 +6680,7 @@ it is not possible to insert a character after a glyph which is at the end of a buffer. Patch by Lloyd Zusman . -2001-05-28 Kai Gro,A_(Bjohann +2001-05-28 Kai Großjohann From Jaap-Henk Hoepman (jhh@xs4all.nl). @@ -6675,7 +6689,7 @@ mm-destroy-postponed-undisplay-list): New functions. (mm-display-external): Use them. -2001-05-27 Kai Gro,A_(Bjohann +2001-05-27 Kai Großjohann * gnus-salt.el (gnus-tree-highlight-node): Bind `default-high' and `default-low' when evaluating `gnus-summary-highlight'. @@ -6690,7 +6704,7 @@ as details. (mml2015-mailcrypt-clear-verify): Ditto. -2001-05-24 Kai Gro,A_(Bjohann +2001-05-24 Kai Großjohann From Nevin Kapur . * gnus-sum.el (gnus-summary-default-high-score, @@ -6868,7 +6882,7 @@ matching subjects. (gnus-offer-save-summaries): Clean up. -2001-04-13 Kai Gro,A_(Bjohann +2001-04-13 Kai Großjohann * nnmail.el (nnmail-split-fancy-with-parent): Add docstring. @@ -6889,7 +6903,7 @@ supported. Suggest by Jim Meyering . 2001-04-02 Nevin Kapur - Committed by Kai Gro,A_(Bjohann . + Committed by Kai Großjohann . * nnmail.el (nnmail-split-it): Added check for .* at the end of regexp in nnmail-split-fancy. @@ -7082,7 +7096,7 @@ * mml2015.el (mml2015-gpg-extract-from): No error. 2001-03-18 23:00:00 ShengHuo ZHU - From Bj,Ax(Brn Mork . + From Bjørn Mork . * mml2015.el (mml2015-gpg-extract-from): New function. (mml2015-gpg-verify): Use it. @@ -7110,7 +7124,7 @@ `nnimap-use-nov-p' (it really tested the negative). (nnimap-retrieve-headers): Use it. -2001-03-11 Kai Gro,A_(Bjohann +2001-03-11 Kai Großjohann * message.el (message-generate-headers-first): Update doc. @@ -7342,7 +7356,7 @@ * gnus-draft.el (gnus-draft-reminder): "Confirm to exit?" -2001-02-19 Kai Gro,A_(Bjohann +2001-02-19 Kai Großjohann * gnus-sum.el (gnus-thread-sort-functions): Doc fix. Refer to gnus-article-sort-functions. @@ -7462,7 +7476,7 @@ (gnus-subscribe-hierarchically): Return gnus-subscribe-newsgroup's return . -2001-02-12 Kai Gro,A_(Bjohann +2001-02-12 Kai Großjohann * gnus-cus.el (gnus-score-customize): Doc fix. @@ -7555,7 +7569,7 @@ * gnus-uu.el (gnus-uu-grab-articles): Shoot down original article buffer. -2001-02-07 Kai Gro,A_(Bjohann +2001-02-07 Kai Großjohann * message.el (message-generate-headers-first): Doc fix. @@ -8073,7 +8087,7 @@ * nnfolder.el (nnfolder-existing-articles): Reversed, i.e. sorted. (nnfolder-request-expire-articles): Use gnus-sorted-intersection. (nnfolder-retrieve-headers): Use intersection. Suggested by Jonas - Kvarnstr,Av(Bm . + Kvarnström . 2000-12-30 00:17:38 Lars Magne Ingebrigtsen @@ -8279,7 +8293,7 @@ * message.el (message-forward): Save-restriction. -2000-12-21 Kai Gro,A_(Bjohann +2000-12-21 Kai Großjohann * gnus-art.el (article-treat-dumbquotes): More doc, provided by Paul Stevenson @@ -9372,10 +9386,10 @@ * message.el (message-font-lock-keywords): use message-cite-prefix-regexp. -2000-11-15 Kai Gro,A_(Bjohann +2000-11-15 Kai Großjohann * gnus-group.el (gnus-group-jump-to-group-prompt): New variable by - Stein Arild Str,Ax(Bmme. + Stein Arild Strømme. (gnus-group-jump-to-group): Use it. (gnus-group-jump-to-group-prompt): Customize. @@ -9507,7 +9521,7 @@ * gnus-art.el (gnus-mime-display-alternative): Show button if no preferred part. -2000-11-07 Kai Gro,A_(Bjohann +2000-11-07 Kai Großjohann * gnus-sum.el (gnus-move-split-methods): Say that `gnus-split-methods' uses file names, whereas this uses group diff --git a/lisp/dns.el b/lisp/dns.el index 475909a..76f6bb7 100644 --- a/lisp/dns.el +++ b/lisp/dns.el @@ -287,7 +287,9 @@ If TCP-P, the first two bytes of the package with be the length field." (open-network-stream "dns" (current-buffer) ,server "domain" 'udp)) `(let ((server ,server) (coding-system-for-read 'binary) - (coding-system-for-write 'binary)) + (coding-system-for-write 'binary) + (default-process-coding-system '(binary . binary)) + program-coding-system-alist) (if (fboundp 'make-network-process) (make-network-process :name "dns" diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el index 4589fd7..fa2b54f 100644 --- a/lisp/gnus-fun.el +++ b/lisp/gnus-fun.el @@ -122,6 +122,8 @@ Output to the current buffer, replace text, and don't mingle error." (ok-p t) (coding-system-for-read 'binary) (coding-system-for-write 'binary) + (input-coding-system 'binary) + (output-coding-system 'binary) default-enable-multibyte-characters start bit-array bit-arrays pixel) (with-temp-buffer diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index ae97600..fc8fc33 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -497,12 +497,14 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." group 'force)) not-deleted)) -(defun gnus-request-move-article - (article group server accept-function &optional last) - (let ((gnus-command-method (gnus-find-method-for-group group))) - (funcall (gnus-get-function gnus-command-method 'request-move-article) - article (gnus-group-real-name group) - (nth 1 gnus-command-method) accept-function last))) +(defun gnus-request-move-article (article group server accept-function &optional last) + (let* ((gnus-command-method (gnus-find-method-for-group group)) + (result (funcall (gnus-get-function gnus-command-method 'request-move-article) + article (gnus-group-real-name group) + (nth 1 gnus-command-method) accept-function last))) + (when (and result gnus-agent gnus-agent-cache) + (gnus-agent-expire (list article) group 'force)) + result)) (defun gnus-request-accept-article (group &optional gnus-command-method last no-encode) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 2dc3d6d..a8fa0e9 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -106,7 +106,7 @@ the second with the current group name." :group 'gnus-message :type 'string) -(defcustom gnus-message-setup-hook '(gnus-maybe-setup-default-charset) +(defcustom gnus-message-setup-hook nil "Hook run after setting up a message buffer." :group 'gnus-message :type 'hook) @@ -381,6 +381,7 @@ Thank you for your help in stamping out bugs. (set (make-local-variable 'gnus-message-group-art) (cons ,group ,article)) (set (make-local-variable 'gnus-newsgroup-name) ,group) + (gnus-maybe-setup-default-charset) (gnus-run-hooks 'gnus-message-setup-hook)) (gnus-add-buffer) (gnus-configure-windows ,config t) @@ -774,8 +775,7 @@ post using the current select method." This is done simply by taking the old article and adding a Supersedes header line with the old Message-ID." (interactive) - (let ((article (gnus-summary-article-number)) - (gnus-message-setup-hook '(gnus-maybe-setup-default-charset))) + (let ((article (gnus-summary-article-number))) (gnus-setup-message 'reply-yank (gnus-summary-select-article t) (set-buffer gnus-original-article-buffer) @@ -1667,15 +1667,14 @@ this is a reply." (interactive "P") (gnus-summary-select-article t) (set-buffer gnus-original-article-buffer) - (let ((gnus-message-setup-hook '(gnus-maybe-setup-default-charset))) - (gnus-setup-message 'compose-bounce - (let* ((references (mail-fetch-field "references")) - (parent (and references (gnus-parent-id references)))) - (message-bounce) - ;; If there are references, we fetch the article we answered to. - (and fetch parent - (gnus-summary-refer-article parent) - (gnus-summary-show-all-headers)))))) + (gnus-setup-message 'compose-bounce + (let* ((references (mail-fetch-field "references")) + (parent (and references (gnus-parent-id references)))) + (message-bounce) + ;; If there are references, we fetch the article we answered to. + (and fetch parent + (gnus-summary-refer-article parent) + (gnus-summary-show-all-headers))))) ;;; Gcc handling. diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el index 458729d..91707e6 100644 --- a/lisp/gnus-namazu.el +++ b/lisp/gnus-namazu.el @@ -243,8 +243,11 @@ options make any sense in this context." (defsubst gnus-namazu/call-namazu (query) (let ((coding-system-for-read gnus-namazu-coding-system) (coding-system-for-write gnus-namazu-coding-system) + (input-coding-system gnus-namazu-coding-system) + (output-coding-system gnus-namazu-coding-system) (default-process-coding-system (cons gnus-namazu-coding-system gnus-namazu-coding-system)) + program-coding-system-alist (file-name-coding-system gnus-namazu-coding-system) (pathname-coding-system gnus-namazu-coding-system)) (apply 'call-process diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index cf4b856..14725c5 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -812,7 +812,11 @@ cautiously -- unloading may cause trouble." (set-buffer gnus-dribble-buffer) (goto-char (point-max)) (insert string "\n") - (set-window-point (get-buffer-window (current-buffer)) (point-max)) + ;; This has been commented by Josh Huber + ;; It causes problems with both XEmacs and Emacs 21, and doesn't + ;; seem to be of much value. (FIXME: remove this after we make sure + ;; it's not needed). + ;; (set-window-point (get-buffer-window (current-buffer)) (point-max)) (bury-buffer gnus-dribble-buffer) (save-excursion (set-buffer gnus-group-buffer) diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index 764428c..ab2b8c0 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -34,7 +34,7 @@ (require 'product) (provide 'gnus-vers) -(defconst gnus-revision-number "01" +(defconst gnus-revision-number "02" "Revision number for this version of gnus.") ;; Product information of this gnus. diff --git a/lisp/imap.el b/lisp/imap.el index 33f2d52..b6cd7a4 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -607,9 +607,7 @@ If ARGS, PROMPT is used as an argument to `format'." (cond ((eq system-type 'windows-nt) (let (selective-display (coding-system-for-write 'binary) - (coding-system-for-read 'raw-text-dos) - (output-coding-system 'binary) - (input-coding-system 'raw-text-dos)) + (coding-system-for-read 'raw-text-dos)) (open-ssl-stream name buffer server port))) (t (as-binary-process diff --git a/lisp/mml2015.el b/lisp/mml2015.el index ce71778..ff6c04d 100644 --- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -310,9 +310,10 @@ by you.") (insert (format "--%s--\n" boundary)) (goto-char (point-max)))) -(defun mml2015-mailcrypt-encrypt (cont) +(defun mml2015-mailcrypt-encrypt (cont &optional sign) (let ((mc-pgp-always-sign (or mc-pgp-always-sign + sign (eq t (or (message-options-get 'message-sign-encrypt) (message-options-set 'message-sign-encrypt diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el index 2c01d2b..e9d5ef5 100644 --- a/lisp/nnmaildir.el +++ b/lisp/nnmaildir.el @@ -700,7 +700,9 @@ by nnmaildir-request-article.") (defun nnmaildir-request-scan (&optional scan-group server) (let ((coding-system-for-write nnheader-file-coding-system) + (output-coding-system nnheader-file-coding-system) (buffer-file-coding-system nil) + (file-coding-system nil) (file-coding-system-alist nil) (nnmaildir-get-new-mail t) (nnmaildir-group-alist nil) @@ -934,7 +936,9 @@ by nnmaildir-request-article.") (defun nnmaildir-request-rename-group (gname new-name &optional server) (let ((group (nnmaildir--prepare server gname)) (coding-system-for-write nnheader-file-coding-system) + (output-coding-system nnheader-file-coding-system) (buffer-file-coding-system nil) + (file-coding-system nil) (file-coding-system-alist nil) srv-dir x groups) (catch 'return @@ -1201,7 +1205,9 @@ by nnmaildir-request-article.") (defun nnmaildir-request-replace-article (article gname buffer) (let ((group (nnmaildir--prepare nil gname)) (coding-system-for-write nnheader-file-coding-system) + (output-coding-system nnheader-file-coding-system) (buffer-file-coding-system nil) + (file-coding-system nil) (file-coding-system-alist nil) file dir suffix tmpfile deactivate-mark) (catch 'return @@ -1287,7 +1293,9 @@ by nnmaildir-request-article.") (defun nnmaildir-request-accept-article (gname &optional server last) (let ((group (nnmaildir--prepare server gname)) (coding-system-for-write nnheader-file-coding-system) + (output-coding-system nnheader-file-coding-system) (buffer-file-coding-system nil) + (file-coding-system nil) (file-coding-system-alist nil) srv-dir dir file tmpfile curfile 24h num article) (catch 'return @@ -1500,7 +1508,9 @@ by nnmaildir-request-article.") (defun nnmaildir-request-set-mark (gname actions &optional server) (let ((group (nnmaildir--prepare server gname)) (coding-system-for-write nnheader-file-coding-system) + (output-coding-system nnheader-file-coding-system) (buffer-file-coding-system nil) + (file-coding-system nil) (file-coding-system-alist nil) del-mark add-marks marksdir markfile action group-nlist nlist ranges begin end article all-marks todo-marks did-marks marks form mdir mfile diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el index 33986cc..fe4a30b 100644 --- a/lisp/nnmbox.el +++ b/lisp/nnmbox.el @@ -189,18 +189,11 @@ (1+ (- (cdr active) (car active))) (car active) (cdr active) group))))) -(static-if (boundp 'MULE) - (defun nnmbox-save-buffer () - (let ((output-coding-system - (or nnmbox-file-coding-system-for-write - nnmbox-file-coding-system))) - (save-buffer))) - (defun nnmbox-save-buffer () - (let ((coding-system-for-write - (or nnmbox-file-coding-system-for-write - nnmbox-file-coding-system))) - (save-buffer))) - ) +(defun nnmbox-save-buffer () + (let* ((coding-system-for-write (or nnmbox-file-coding-system-for-write + nnmbox-file-coding-system)) + (output-coding-system coding-system-for-write)) + (save-buffer))) (defun nnmbox-save-active (group-alist active-file) (let ((nnmail-active-file-coding-system diff --git a/lisp/nnrss.el b/lisp/nnrss.el index fd9ea8a..8f66d43 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -378,6 +378,7 @@ ARTICLE is the article number of the current headline.") (when (file-exists-p file) (with-temp-buffer (let ((coding-system-for-read 'binary) + (input-coding-system 'binary) emacs-lisp-mode-hook) (insert-file-contents file) (emacs-lisp-mode) @@ -394,6 +395,7 @@ ARTICLE is the article number of the current headline.") server ".el")) nnrss-directory))) (let ((coding-system-for-write 'binary) + (output-coding-system 'binary) print-level print-length) (with-temp-file file (insert "(setq nnrss-server-data '" @@ -416,6 +418,7 @@ ARTICLE is the article number of the current headline.") (when (file-exists-p file) (with-temp-buffer (let ((coding-system-for-read 'binary) + (input-coding-system 'binary) emacs-lisp-mode-hook) (insert-file-contents file) (emacs-lisp-mode) @@ -438,6 +441,7 @@ ARTICLE is the article number of the current headline.") server ".el")) nnrss-directory))) (let ((coding-system-for-write 'binary) + (output-coding-system 'binary) print-level print-length) (with-temp-file file (insert "(setq nnrss-group-data '" diff --git a/lisp/nnweb.el b/lisp/nnweb.el index 9d4c18b..921398b 100644 --- a/lisp/nnweb.el +++ b/lisp/nnweb.el @@ -795,12 +795,23 @@ Valid types include `google', `dejanews', `reference', and `altavista'.") (set-buffer nnweb-buffer) (erase-buffer) (when (funcall (nnweb-definition 'search) nnweb-search) - (let ((more t)) + (let ((more t) + (i 0)) (while more (setq nnweb-articles (nconc nnweb-articles (nnweb-google-parse-1))) - ;; FIXME: There is more. - (setq more nil)) + ;; Check if there are more articles to fetch + (goto-char (point-min)) + (incf i 100) + (if (or (not (re-search-forward + "]+\\).*Next" nil t)) + (>= i nnweb-max-hits)) + (setq more nil) + ;; Yup, there are more articles + (setq more (concat "http://groups.google.com" (match-string 1))) + (when more + (erase-buffer) + (mm-url-insert more)))) ;; Return the articles in the right order. (setq nnweb-articles (sort nnweb-articles 'car-less-than-car))))))