From: yamaoka Date: Mon, 16 Nov 1998 08:22:43 +0000 (+0000) Subject: Modify for SEMI 1.11, FLIM 1.12. X-Git-Tag: pgnus-ichikawa-199811302358~46 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=224da95810808ee8b6512e24d092afeba0ffb54a;p=elisp%2Fgnus.git- Modify for SEMI 1.11, FLIM 1.12. --- diff --git a/ChangeLog b/ChangeLog index 7a86665..4492810 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 1998-11-16 Katsumi Yamaoka + * lisp/gnus.el (gnus-version-number): Update to 6.10.034. + (gnus-version): Modify for SEMI 1.11, FLIM 1.12. + +1998-11-16 Katsumi Yamaoka + * make.bat: Replace line endings from `LF' to `CRLF'. 1998-11-16 Katsumi Yamaoka @@ -43,6 +48,13 @@ 1998-11-13 Katsumi Yamaoka + * lisp/gnus-art.el (gnus-article-header-presentation-method): Use + `mime-insert-header' instead of `mime-insert-decoded-header'. + + * lisp/nnheader.el (nnheader-decode-subject): Change the 2nd arg of + `mime-find-field-decoder' to 'nov'. + (nnheader-decode-from): Ditto. + * lisp/message.el (message-maybe-split-and-send-mail): Discard a return from `message-send-mail-function'. @@ -132,6 +144,12 @@ 1998-11-09 Katsumi Yamaoka + * lisp/nnheader.el (nnheader-decode-subject): Call + `mime-find-field-decoder' with `summary' as the 2nd arg. + (nnheader-decode-from): Ditto. + +1998-11-09 Katsumi Yamaoka + * lisp/pop3-fma.el: Set the value of `nnmail-read-passwd' as a symbol `pop3-fma-read-passwd'. @@ -214,6 +232,12 @@ (gnus-bbdb/update-record): Use `save-excursion' and change timing of `save-restriction'. +1998-10-31 Katsumi Yamaoka + + * lisp/gnus-draft.el (gnus-draft-decoding-function): Use + `mime-edit-decode-message-in-buffer' instead of + `mime-edit-decode-buffer'. + 1998-10-31 Tatsuya Ichikawa * lisp/nnheader.el (nnheader-decode-field-body): New inline @@ -250,6 +274,10 @@ 1998-10-30 Katsumi Yamaoka + * lisp/gnus-art.el (article-decode-encoded-words): Use + `mime-decode-header-in-buffer' instead of `eword-decode-header'. + (gnus-article-display-message-with-encoded-word): Likewise. + * lisp/gnus-art.el (gnus-article-mime-edit-article-setup): Fix typo. @@ -258,6 +286,17 @@ * lisp/gnus-draft.el (gnus-draft-decoding-function): Use `mime-edit-decode-buffer' simply as initial value. + * lisp/message.el (message-make-forward-subject): Use + `nnheader-decode-subject' instead of + `eword-decode-unstructured-field-body'. + + * lisp/nnheader.el (nnheader-decode-subject): New alias. + (nnheader-decode-from): New alias. + (make-full-mail-header): Use `nnheader-decode-subject' and + `nnheader-decode-from' instead of + `eword-decode-and-unfold-unstructured-field' and + `eword-decode-and-unfold-structured-field'. + 1998-10-29 Katsumi Yamaoka * lisp/gnus-art.el (gnus-article-mime-edit-article-setup): Force diff --git a/README.ichikawa b/README.ichikawa index ce26309..37e6545 100644 --- a/README.ichikawa +++ b/README.ichikawa @@ -31,4 +31,4 @@ NEWS: * T-gnus 6.8.19 is the last version Gnus 5.6 base. After this , T-gnus 6.10 - this is based on Pterodactyl Gnus. - The latest T-gnus is T-gnus 6.10.033 (Based on pgnus-0.48). + The latest T-gnus is T-gnus 6.10.034 (Based on pgnus-0.48). diff --git a/README.semi b/README.semi index d080a59..a398f1e 100644 --- a/README.semi +++ b/README.semi @@ -13,9 +13,9 @@ ftp://ftp.jaist.ac.jp/pub/elisp/semi/ Required environment for SEMI is written in README.en of SEMI package. T-gnus major change has been done. It won't work with the old versions -of SEMI packages, e.g. FLIM 1.10.5, SEMI 1.9.1, etc. If you have that one, +of SEMI packages, e.g. FLIM 1.11.3, SEMI 1.10.2, etc. If you have that one, please update your environment before installing it. The recommended -versions of SEMI packages are APEL 9.10, FLIM 1.11.3 and SEMI 1.10.2 or +versions of SEMI packages are APEL 9.11, FLIM 1.12.0 and SEMI 1.11.0 or newer than them. diff --git a/README.semi.ja b/README.semi.ja index e833856..b7f13f8 100644 --- a/README.semi.ja +++ b/README.semi.ja @@ -14,9 +14,9 @@ ftp://ftp.jaist.ac.jp/pub/elisp/semi/ $B$+$iH$7$F$/$@$5$$!#(B T-gnus $B$G$OBg$-$JJQ99$,9T$J$o$l$^$7$?!#$3$l$O8E$$(B SEMI $B%Q%C%1!<%8!"(B -$BNc$($P(B FLIM 1.10.5, SEMI 1.9.1 $B$G$OF0:n$7$^$;$s!#$b$7$=$l$i$r$*;H$$$J(B +$BNc$($P(B FLIM 1.11.3, SEMI 1.10.2 $B$G$OF0:n$7$^$;$s!#$b$7$=$l$i$r$*;H$$$J(B $B$i$P!"(BT-gnus $B$r%$%s%9%H!<%k$9$kA0$K?7$7$$$b$N$HF~$lBX$($F2<$5$$!#(B -$B?d>)$5$l$k$N$O(B APEL 9.10, FLIM 1.11.3 $B$*$h$S(B SEMI 1.10.2 $B$^$?$O$=$l$i$h(B +$B?d>)$5$l$k$N$O(B APEL 9.11, FLIM 1.12.0 $B$*$h$S(B SEMI 1.11.0 $B$^$?$O$=$l$i$h(B $B$j?7$7$$$b$N$G$9!#(B diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 547dc30..e8370c6 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1077,7 +1077,7 @@ If PROMPT (the prefix), prompt for a coding system to use." (let ((charset (save-excursion (set-buffer gnus-summary-buffer) default-mime-charset))) - (eword-decode-header charset) + (mime-decode-header-in-buffer charset) ))) (defun article-de-quoted-unreadable (&optional force) @@ -3878,7 +3878,7 @@ For example: ;;; (defun gnus-article-header-presentation-method (entity situation) - (mime-insert-decoded-header entity) + (mime-insert-header entity) ) (set-alist 'mime-header-presentation-method-alist diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el index a0f2df9..4136b5e 100644 --- a/lisp/gnus-draft.el +++ b/lisp/gnus-draft.el @@ -2,8 +2,8 @@ ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen -;; MORIOKA Tomohiko -;; Tatsuya Ichikawa +;; MORIOKA Tomohiko +;; Tatsuya Ichikawa ;; Keywords: mail, news, MIME, offline ;; This file is part of GNU Emacs. @@ -184,10 +184,7 @@ ;;; Utility functions (defcustom gnus-draft-decoding-function - (function - (lambda () - (mime-edit-decode-buffer nil) - (mime-decode-header-in-buffer))) + #'mime-edit-decode-message-in-buffer "*Function called to decode the message from network representation." :group 'gnus-agent :type 'function) @@ -197,7 +194,6 @@ ;;;!!!This has been fixed in recent versions of Emacs and XEmacs, ;;;!!!but for the time being, we'll just run this tiny function uncompiled. -(progn (defun gnus-draft-setup-for-editing (narticle group) (gnus-setup-message 'forward (let ((article narticle)) @@ -212,10 +208,9 @@ (forward-char -1) (insert mail-header-separator) (forward-line 1) - (message-set-auto-save-file-name)))))) -;; + (message-set-auto-save-file-name))))) + (defvar gnus-draft-send-draft-buffer " *send draft*") -(progn (defun gnus-draft-setup-for-sending (narticle group) (let ((article narticle)) (if (not (get-buffer gnus-draft-send-draft-buffer)) @@ -224,8 +219,7 @@ (erase-buffer) (if (not (gnus-request-restore-buffer article group)) (error "Couldn't restore the article") - )))) -;; For draft TEST + ))) (defun gnus-draft-article-sendable-p (article) "Say whether ARTICLE is sendable." diff --git a/lisp/gnus.el b/lisp/gnus.el index 6161cf8..4e78d94 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -259,7 +259,7 @@ is restarted, and sometimes reloaded." (defconst gnus-product-name "T-gnus" "Product name of this version of gnus.") -(defconst gnus-version-number "6.10.033" +(defconst gnus-version-number "6.10.034" "Version number for this version of gnus.") (defconst gnus-original-version-number "0.48" @@ -269,7 +269,7 @@ is restarted, and sometimes reloaded." "Product name of the original version of Gnus.") (defconst gnus-version - (format "%s %s (based on %s %s ; for SEMI 1.10, FLIM 1.11)" + (format "%s %s (based on %s %s ; for SEMI 1.11, FLIM 1.12)" gnus-product-name gnus-version-number gnus-original-product-name gnus-original-version-number) "Version string for this version of gnus.") diff --git a/lisp/message.el b/lisp/message.el index ba4ada5..60e6ed9 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4276,10 +4276,12 @@ the message." (let ((funcs message-make-forward-subject-function) (subject (if message-wash-forwarded-subjects (message-wash-subject - (or (eword-decode-unstructured-field-body - (message-fetch-field "Subject")) "")) - (or (eword-decode-unstructured-field-body - (message-fetch-field "Subject")) "")))) + (or (nnheader-decode-subject + (message-fetch-field "Subject")) + "")) + (or (nnheader-decode-subject + (message-fetch-field "Subject")) + "")))) ;; Make sure funcs is a list. (and funcs (not (listp funcs)) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index e56decf..96f84d5 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -102,6 +102,11 @@ on your system, you could say something like: (defalias 'mail-header-xref 'mime-entity-xref-internal) (defalias 'mail-header-set-xref 'mime-entity-set-xref-internal) +(defalias 'nnheader-decode-subject + (mime-find-field-decoder 'Subject 'nov)) +(defalias 'nnheader-decode-from + (mime-find-field-decoder 'From 'nov)) + (defalias 'mail-header-extra 'ignore) (defalias 'mail-header-set-extra 'ignore) @@ -121,10 +126,10 @@ on your system, you could say something like: nil nil nil nil (if subject - (eword-decode-and-unfold-unstructured-field subject) + (nnheader-decode-subject subject) ) (if from - (eword-decode-and-unfold-structured-field from) + (nnheader-decode-from from) ) date id references chars lines xref diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index a69081c..4651dde 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus-ja -@settitle Semi-gnus 6.10.033 Manual +@settitle Semi-gnus 6.10.034 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -345,7 +345,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.10.033 Manual +@title Semi-gnus 6.10.034 Manual @author by Lars Magne Ingebrigtsen @author by members of Semi-gnus mailing-list @@ -399,7 +399,7 @@ Semi-gnus $B$O!"Bg$-$J3($,F~$C$F$$$?$j$5$^$6$^$J7A<0$rMQ$$$?$j$7$F$$$k$A$g$C(B $B$J8@8l7w$r:9JL$7$^$;$s!#$"$"!"%/%j%s%4%s$NJ}$O(B Unicode Next Generation$B$r(B $B$*BT$A$/$@$5$$!#(B -$B$3$N@bL@=q$O(B Semi-gnus 6.10.033 $B$KBP1~$7$^$9!#(B +$B$3$N@bL@=q$O(B Semi-gnus 6.10.034 $B$KBP1~$7$^$9!#(B @end ifinfo diff --git a/texi/gnus.texi b/texi/gnus.texi index 9483f7f..7c50363 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Semi-gnus 6.10.033 Manual +@settitle Semi-gnus 6.10.034 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.10.033 Manual +@title Semi-gnus 6.10.034 Manual @author by Lars Magne Ingebrigtsen @page @@ -361,7 +361,7 @@ internationalization/localization and multiscript features based on MULE API. So Semi-gnus does not discriminate various language communities. Oh, if you are a Klingon, please wait Unicode Next Generation. -This manual corresponds to Semi-gnus 6.10.033. +This manual corresponds to Semi-gnus 6.10.034. @end ifinfo diff --git a/texi/message-ja.texi b/texi/message-ja.texi index b3dbc97..6d24a4a 100644 --- a/texi/message-ja.texi +++ b/texi/message-ja.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message-ja -@settitle Message 6.10.033 Manual +@settitle Message 6.10.034 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -60,7 +60,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 6.10.033 Manual +@title Message 6.10.034 Manual @author by Lars Magne Ingebrigtsen @translated by members of Semi-gnus mailing-list @@ -112,7 +112,7 @@ Gnus $B$NA4$F$N%a%C%;!<%8$N:n@.(B ($B%a!<%k$H%K%e!<%9$NN>J}(B) $B$O%a%C%;!< * Key Index:: $B%a%C%;!<%8%b!<%I%-!<$N0lMw!#(B @end menu -$B$3$N%^%K%e%"%k$O(B Message 6.10.033 $B$KBP1~$7$^$9!#(BMessage $B$O$3$N%^%K%e%"%k$H(B +$B$3$N%^%K%e%"%k$O(B Message 6.10.034 $B$KBP1~$7$^$9!#(BMessage $B$O$3$N%^%K%e%"%k$H(B $BF1$8HGHV9f$N(B Gnus $B$NG[I[$H6&$KG[I[$5$l$^$9!#(B diff --git a/texi/message.texi b/texi/message.texi index badb908..bb45977 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 6.10.033 Manual +@settitle Message 6.10.034 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 6.10.033 Manual +@title Message 6.10.034 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 6.10.033. Message is +This manual corresponds to Message 6.10.034. Message is distributed with the Gnus distribution bearing the same version number as this manual.