From: yamaoka Date: Wed, 9 Oct 2002 06:10:41 +0000 (+0000) Subject: * gnus-vers.el (gnus-revision-number): Increment to 02. X-Git-Tag: t-gnus-6_15_7-02 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7486b12fa4e49b76d1dd7804fd43598c0267e2d1;p=elisp%2Fgnus.git- * gnus-vers.el (gnus-revision-number): Increment to 02. (gnus-version): T-gnus supports SEMI 1.14 and FLIM 1.14. * mmgnus.el: Remove commented obsolete definitions. * message.el (message-header-hook): Replace `eword-encode-header' with `mime-encode-header-in-buffer'. (message-send-mail-with-smtp): Don't use `smtp-via-smtp'. --- diff --git a/ChangeLog b/ChangeLog index bc59d77..160ccb9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +2002-10-09 Katsumi Yamaoka + + * lisp/gnus-vers.el (gnus-revision-number): Increment to 02. + (gnus-version): T-gnus supports SEMI 1.14 and FLIM 1.14. + + * lisp/mmgnus.el: Remove commented obsolete definitions. + + * lisp/message.el (message-header-hook): Replace + `eword-encode-header' with `mime-encode-header-in-buffer'. + (message-send-mail-with-smtp): Don't use `smtp-via-smtp'. + 2002-10-07 Katsumi Yamaoka * lisp/mm-url.el (mm-url-form-encode-xwfu): Use diff --git a/Mule23@1934.en b/Mule23@1934.en index 10ba205..f88af6c 100644 --- a/Mule23@1934.en +++ b/Mule23@1934.en @@ -35,13 +35,17 @@ beginning of .emacs file instead of rebuilding Mule. (makunbound (intern (format "message-%s" symbol))))) -INSTALL CUSTOM, APEL, FLIM, SEMI/WEMI -===================================== +INSTALL CUSTOM, APEL, CLIME, SEMI +================================= -T-gnus requires the latest version of CUSTOM, APEL, FLIM and SEMI or -WEMI; you should install these packages before installing T-gnus. +T-gnus requires the latest version of CUSTOM, APEL, CLIME and SEMI; +CLIME 1.14 provides the same features as FLIM 1.14 for old Emacsen, +which is currently available from: -As for CUSTOM, you should apply the following patch before building it. +ftp://ftp.jpl.org/pub/m17n/clime-1_14-************.tar.gz + +You should install these packages before installing T-gnus. As for +CUSTOM, you should apply the following patch before building it. ------ cut here ------ cut here ------ cut here ------ cut here ------ --- custom-1.9962/cus-face.el~ Wed Mar 4 19:52:39 1998 @@ -81,13 +85,13 @@ INSTALL T-gnus There are three ways of making T-gnus with Mule 2.3 based on Emacs 19.34. -1. If you have installed EMU, APEL, FLIM and SEMI or WEMI packages - under the standard load-path, for instance: +1. If you have installed EMU, APEL, CLIME and SEMI packages under the + standard load-path, for instance: - EMU: /usr/local/share/mule/19.34/site-lisp/ - APEL: /usr/local/share/mule/site-lisp/apel/ - FLIM: /usr/local/share/mule/site-lisp/flim/ - SEMI: /usr/local/share/mule/site-lisp/semi/ + EMU: /usr/local/share/mule/19.34/site-lisp/ + APEL: /usr/local/share/mule/site-lisp/apel/ + CLIME: /usr/local/share/mule/site-lisp/flim/ + SEMI: /usr/local/share/mule/site-lisp/semi/ What is more, if you have been replaced old CUSTOM with new CUSTOM or if you have installed new CUSTOM directly under the standard @@ -117,24 +121,24 @@ There are three ways of making T-gnus with Mule 2.3 based on Emacs 19.34. % ./configure --with-emacs=mule % make install -2. If you have installed EMU, APEL, FLIM and SEMI or WEMI packages in - the non-standard load-path, use the configure option - `--with-addpath=' with the colon separated directory names where - EMU, APEL or CUSTOM packages are installed. For example: +2. If you have installed EMU, APEL, CLIME and SEMI packages in the + non-standard load-path, use the configure option `--with-addpath=' + with the colon separated directory names where EMU, APEL or CUSTOM + packages are installed. For example: % ./configure --with-emacs=mule\ --with-addpath=~/elisp/emu/:~/elisp/apel/:~/elisp/custom/ % make install - In this case, you have no need to add paths of FLIM, SEMI or WEMI - if they are installed under the directory which is same as the - parent directory of APEL. + In this case, you have no need to add paths of CLIME, SEMI if they + are installed under the directory which is same as the parent + directory of APEL. 3. This is another way to install T-gnus when you have installed EMU, - APEL, FLIM and SEMI or WEMI packages in the non-standard load-path. - Copy the file `sample.lpath.el' which is included in the - distribution to `~/.lpath.el' and modify it suitably for your - environment. And then type the following command. + APEL, CLIME and SEMI packages in the non-standard load-path. Copy + the file `sample.lpath.el' which is included in the distribution to + `~/.lpath.el' and modify it suitably for your environment. And + then type the following command. % ./configure --with-emacs=mule % make install diff --git a/Mule23@1934.ja b/Mule23@1934.ja index fd61271..32c053d 100644 --- a/Mule23@1934.ja +++ b/Mule23@1934.ja @@ -36,13 +36,18 @@ lisp/loaddefs.el $B$+$i:o=|$7$F!"(BMule $B$r:n$jD>$5$J$1$l$P$J$j$^$;$s!#(B (makunbound (intern (format "message-%s" symbol))))) -INSTALL CUSTOM, APEL, FLIM, SEMI -================================ +INSTALL CUSTOM, APEL, CLIME, SEMI +================================= -T-gnus $B$O:G?7HG$N(B CUSTOM, APEL, FLIM $B$*$h$S(B SEMI $B$+(B WEMI $B$rI,MW$H$7$^(B -$B$9!#$"$J$?$O$3$l$i$N%Q%C%1!<%8$r(B T-gnus $B$NA0$K%$%s%9%H!<%k$7$J$1$l$P$J(B -$B$j$^$;$s!#(BCUSTOM $B$K$D$$$F$O!":n$kA0$K$"$J$?$O0J2<$N%Q%C%A$rEv$F$kI,MW(B -$B$,$"$j$^$9!#(B +T-gnus $B$O:G?7HG$N(B CUSTOM, APEL, CLIME $B$*$h$S(B SEMI $B$rI,MW$H$7$^$9!#(B +CLIME 1.14 $B$O8E$$(B Emacs $B$K(B FLIM 1.14 $B$HF1$85!G=$rDs6!$9$k$b$N$G!"8=:_(B +$B0J2<$N$b$N$,F~$H(B configure $B%*%W%7%g%s$N(B `--with-addpath=' $B$r;H$C$F2<$5$$!#(B - $BNc$($P(B +2. $B$b$7$"$J$?$,(B EMU, APEL, CLIME $B$*$h$S(B SEMI $B$N3F%Q%C%1!<%8$rI8=`$G$O(B + $B$J$$(B load-path $B$K%$%s%9%H!<%k$7$F$$$k$J$i$P!"%3%m%s$G6h@Z$i$l$?(B + EMU, APEL $B$*$h$S(B CUSTOM $B$,%$%s%9%H!<%k$5$l$F$$$k%G%#%l%/%H%jL>$H(B + configure $B%*%W%7%g%s$N(B `--with-addpath=' $B$r;H$C$F2<$5$$!#Nc$($P(B % ./configure --with-emacs=mule\ --with-addpath=~/elisp/emu/:~/elisp/apel/:~/elisp/custom/ % make - $B$3$N>l9g!"$b$7(B FLIM, SEMI $B$^$?$O(B WEMI $B$,(B APEL $B$N?F%G%#%l%/%H%j$HF1(B - $B$8%G%#%l%/%H%j$N2<$K%$%s%9%H!<%k$5$l$F$$$k$J$i$P!"$=$l$i$N(B path $B$r(B - $BDI2C$9$kI,MW$O$"$j$^$;$s!#(B + $B$3$N>l9g!"$b$7(B CLIME, SEMI $B$,(B APEL $B$N?F%G%#%l%/%H%j$HF1$8%G%#%l%/%H(B + $B%j$N2<$K%$%s%9%H!<%k$5$l$F$$$k$J$i$P!"$=$l$i$N(B path $B$rDI2C$9$kI,MW(B + $B$O$"$j$^$;$s!#(B -3. $B$3$l$O!"(BEMU, APEL, FLIM $B$*$h$S(B SEMI $B$^$?$O(B WEMI $B$N3F%Q%C%1!<%8$rI8(B - $B=`$G$O$J$$(B load-path $B$K%$%s%9%H!<%k$7$F$$$k>l9g$N!"JL$NJ}K!$G$9!#(B - $BG[I[$K4^$^$l$F$$$k%U%!%$%k(B `sample.lpath.el' $B$r(B `~/.lpath.el' $B$K%3(B - $B%T!<$7$F!"$"$J$?$N4D6-$K9g$&$h$&$K=q$-49$($F2<$5$$!#$=$7$Fl9g$N!"JL$NJ}K!$G$9!#G[I[$K4^$^$l(B + $B$F$$$k%U%!%$%k(B `sample.lpath.el' $B$r(B `~/.lpath.el' $B$K%3%T!<$7$F!"$"(B + $B$J$?$N4D6-$K9g$&$h$&$K=q$-49$($F2<$5$$!#$=$7$Fl9g$K$O(B mime-bbdb $B$,ITMW$K$J$j$^$9!#(B -1.11.3 $B0J9_$N(B FLIM $B$,I,MW$G$9!#(B +1.11.3 $B0J9_$N(B FLIM $B$,I,MW(B (T-gnus $B$G$O(B FLIM 1.14 $B$,I,MW(B) $B$G$9!#(B bbdb-auto-notes-hook $B$r;HMQ$7$F$$$J$$J}$K$OITMW$G$9$,!";HMQ$7$F$$$kJ}(B $B$O(B bbdb.el / bbdb-hooks.el $B$K$3$N%U%!%$%k$N:G8e$K$"$k(B patch $B$r$"$F$kI,(B diff --git a/README.T-gnus b/README.T-gnus index 9a7b903..06af0f1 100644 --- a/README.T-gnus +++ b/README.T-gnus @@ -34,5 +34,4 @@ NEWS: * T-gnus 6.15 - this is based on Oort Gnus. The latest T-gnus is T-gnus 6.15.7 (based on Oort Gnus 0.07). It - requires SEMI/WEMI (1.13.5 or later), FLIM (1.13.1 or later), and - APEL (10.0 or later). + requires SEMI 1.14, FLIM 1.14, and APEL 10.0 or later. diff --git a/README.branch b/README.branch index c97790c..eabdede 100644 --- a/README.branch +++ b/README.branch @@ -43,7 +43,7 @@ qGnus 0.?? ------> Semi-gnus 6.0.0 : : +<--------------+ : : | | : akr <-- 6.2.3 : t-gnus-6_15 - : shuhei-k <-- 6.3.1 (for FLIM 1.13, + : shuhei-k <-- 6.3.1 (for FLIM 1.14, Gnus 5.6.11 ------> 6.3.3 develop) : 6.4.0 (for SEMI 1.5) | : (6.4.?)------> for SEMI 1.5 : @@ -134,8 +134,11 @@ Public Branches t-gnus-6_12 T-gnus for SEMI 1.12/1.13, FLIM 1.12 API (stable) t-gnus-6_13 T-gnus for SEMI 1.13, FLIM 1.13 API (develop) t-gnus-6_14 T-gnus for SEMI 1.13, FLIM 1.13 API (develop) - t-gnus-6_15 T-gnus for SEMI 1.13, FLIM 1.13 API (develop) - t-gnus-6_15-quimby T-gnus for SEMI 1.13, FLIM 1.13 API (develop) + t-gnus-6_15 T-gnus for SEMI 1.14, FLIM 1.14 API (develop) + t-gnus-6_15-quimby T-gnus for SEMI 1.14, FLIM 1.14 API (develop) + + Note: T-gnus versions 6.15 based on Oort Gnus v0.03 and earlier + had supported SEMI 1.13 and FLIM 1.13 as well. Personal Branches diff --git a/README.branch.ja b/README.branch.ja index 3e54c4c..3eb56f1 100644 --- a/README.branch.ja +++ b/README.branch.ja @@ -43,7 +43,7 @@ qGnus 0.?? ------> Semi-gnus 6.0.0 : : +<--------------+ : : | | : akr <-- 6.2.3 : t-gnus-6_15 - : shuhei-k <-- 6.3.1 (for FLIM 1.13, + : shuhei-k <-- 6.3.1 (for FLIM 1.14, Gnus 5.6.11 ------> 6.3.3 develop) : 6.4.0 (for SEMI 1.5) | : (6.4.?)------> for SEMI 1.5 : @@ -134,8 +134,11 @@ Public Branches t-gnus-6_12 T-gnus for SEMI 1.12/1.13, FLIM 1.12 API (stable) t-gnus-6_13 T-gnus for SEMI 1.13, FLIM 1.13 API (develop) t-gnus-6_14 T-gnus for SEMI 1.13, FLIM 1.13 API (develop) - t-gnus-6_15 T-gnus for SEMI 1.13, FLIM 1.13 API (develop) - t-gnus-6_15-quimby T-gnus for SEMI 1.13, FLIM 1.13 API (develop) + t-gnus-6_15 T-gnus for SEMI 1.14, FLIM 1.14 API (develop) + t-gnus-6_15-quimby T-gnus for SEMI 1.14, FLIM 1.14 API (develop) + + $BCm(B: v0.03 $B0JA0$N(B Oort Gnus $B$r85$K$7$?(B T-gnus 6.15 $B$O!"(BSEMI 1.13 $B$H(B + FLIM 1.13 $B$b%5%]!<%H$7$F$$$^$7$?!#(B Personal Branches diff --git a/README.semi b/README.semi index 6a642ae..eede623 100644 --- a/README.semi +++ b/README.semi @@ -9,12 +9,11 @@ to use it, and you must not use gnus-mime for SEMI. It requires APEL, FLIM and SEMI packages, so please get and install them before to install it. T-gnus 6.15 requires APEL 10.0 or later, -FLIM (1.13.1 or later) and SEMI/WEMI (1.13.5 or later). You can get -these packages from: +FLIM 1.14 and SEMI 1.14. You can get these packages from: ftp://ftp.m17n.org/pub/mule/apel/ -ftp://ftp.m17n.org/pub/mule/flim/flim-1.13/ -ftp://ftp.m17n.org/pub/mule/semi/semi-1.13-for-flim-1.13/ +ftp://ftp.m17n.org/pub/mule/flim/flim-1.14/ +ftp://ftp.m17n.org/pub/mule/semi/semi-1.14-for-flim-1.14/ Required environment for SEMI is written in README.en of SEMI package. diff --git a/README.semi.ja b/README.semi.ja index d278311..05265a0 100644 --- a/README.semi.ja +++ b/README.semi.ja @@ -10,12 +10,11 @@ T-gnus $B$H$O!)(B APEL, FLIM $B$*$h$S(B SEMI $B%Q%C%1!<%8$,I,MW$G$9$N$G!"%$%s%9%H!<%k$9$kA0(B $B$K$=$l$i$r%$%s%9%H!<%k$7$F$/$@$5$$!#(BT-gnus 6.15 $B$O(B APEL 10.0 $B0J>e!"(B -FLIM (1.13.1 $B0J>e(B) $B$*$h$S(B SEMI/WEMI (1.13.5 $B0J>e(B) $B$rI,MW$H$7$^$9!#$=$l(B -$B$i$N%Q%C%1!<%8$O(B +FLIM 1.14 $B$*$h$S(B SEMI 1.14 $B$rI,MW$H$7$^$9!#$=$l$i$N%Q%C%1!<%8$O(B ftp://ftp.m17n.org/pub/mule/apel/ -ftp://ftp.m17n.org/pub/mule/flim/flim-1.13/ -ftp://ftp.m17n.org/pub/mule/semi/semi-1.13-for-flim-1.13/ +ftp://ftp.m17n.org/pub/mule/flim/flim-1.14/ +ftp://ftp.m17n.org/pub/mule/semi/semi-1.14-for-flim-1.14/ $B$+$iH$7$F(B $B$/$@$5$$!#(B diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index 764428c..d5e14a6 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. @@ -62,7 +62,7 @@ "Version number for this version of gnus.") (defconst gnus-version - (format "%s %s r%s (based on %s v%s ; for SEMI 1.13, FLIM 1.13)" + (format "%s %s r%s (based on %s v%s ; for SEMI 1.14, FLIM 1.14)" gnus-product-name gnus-version-number gnus-revision-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 fdfc1cb..d5aedc1 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -749,7 +749,7 @@ The function `message-supersede' runs this hook." :group 'message-various :type 'hook) -(defcustom message-header-hook '((lambda () (eword-encode-header t))) +(defcustom message-header-hook '((lambda () (mime-encode-header-in-buffer t))) "Hook run in a message mode buffer narrowed to the headers." :group 'message-various :type 'hook) @@ -3633,13 +3633,7 @@ to find out how to use this." (backward-char 1) (run-hooks 'message-send-mail-hook) (if recipients - (static-if (fboundp 'smtp-send-buffer) - (smtp-send-buffer user-mail-address recipients - (current-buffer)) - (let ((result (smtp-via-smtp user-mail-address recipients - (current-buffer)))) - (unless (eq result t) - (error "Sending failed; %s" result)))) + (smtp-send-buffer user-mail-address recipients (current-buffer)) (error "Sending failed; no recipients")))) (defsubst message-maybe-split-and-send-news (method) diff --git a/lisp/mmgnus.el b/lisp/mmgnus.el index 3493ee1..d5ad15f 100644 --- a/lisp/mmgnus.el +++ b/lisp/mmgnus.el @@ -37,55 +37,7 @@ (apply (car (luna-class-find-functions (luna-find-class 'standard-object) 'initialize-instance)) - entity init-args) - ) - -;; (luna-define-method mime-entity-fetch-field ((entity mime-gnus-entity) -;; field-name) -;; (or (funcall (car (luna-class-find-functions -;; (luna-find-class 'mime-entity) -;; 'mime-entity-fetch-field)) -;; entity field-name) -;; (with-current-buffer gnus-original-article-buffer -;; (let ((ret (std11-field-body field-name))) -;; (when ret -;; (or (symbolp field-name) -;; (setq field-name -;; (intern (capitalize (capitalize field-name))))) -;; (mime-entity-set-original-header-internal -;; entity -;; (put-alist field-name ret -;; (mime-entity-original-header-internal entity))) -;; ret))))) - -;; (luna-define-method mime-entity-buffer ((entity mime-gnus-entity)) -;; ;; (if (with-current-buffer gnus-summary-buffer -;; ;; (eq gnus-current-article (mail-header-number entity))) -;; ;; ...) -;; (unless (mime-buffer-entity-header-end-internal entity) -;; (set-buffer gnus-original-article-buffer) -;; (mime-buffer-entity-set-header-start-internal entity (point-min)) -;; (mime-buffer-entity-set-body-end-internal entity (point-max)) -;; (goto-char (point-min)) -;; (if (re-search-forward "^$" nil t) -;; (progn -;; (mime-buffer-entity-set-header-end-internal entity (match-end 0)) -;; (mime-buffer-entity-set-body-start-internal -;; entity -;; (if (= (mime-buffer-entity-header-end-internal entity) -;; (mime-buffer-entity-body-end-internal entity)) -;; (mime-buffer-entity-body-end-internal entity) -;; (1+ (mime-buffer-entity-header-end-internal entity)) -;; )) -;; ) -;; (mime-buffer-entity-set-header-end-internal entity (point-min)) -;; (mime-buffer-entity-set-body-start-internal entity (point-min)) -;; )) -;; gnus-original-article-buffer) - - -;;; @ end -;;; + entity init-args)) (provide 'mmgnus) diff --git a/sample.lpath.el b/sample.lpath.el index 518f4de..95e40cc 100644 --- a/sample.lpath.el +++ b/sample.lpath.el @@ -18,8 +18,8 @@ ;; Where is CUSTOM package? "/usr/local/share/mule/site-lisp/custom/" - ;; Note that you have no need to specify paths of FLIM, SEMI - ;; or WEMI if they are installed under the directory which is + ;; Note that you have no need to specify paths of FLIM and + ;; SEMI if they are installed under the directory which is ;; same as the parent directory of APEL. ;; If you have installed Emacs/W3 package, diff --git a/texi/gnus-faq-ja.texi b/texi/gnus-faq-ja.texi index 650ab7b..c34386d 100644 --- a/texi/gnus-faq-ja.texi +++ b/texi/gnus-faq-ja.texi @@ -74,14 +74,13 @@ Q1.1: $B:G?7$N%P!<%8%g%s$O(B? $B8=:_$N3+H/HG$N:G?7%P!<%8%g%s$O(B T-gnus 6.15 (tag: t-gnus-6_15-quimby) $B$G(B $B$9!#(B -T-gnus 6.15 $B$r;HMQ$9$k$?$a$K$OJL%Q%C%1!<%8$N(B FLIM 1.13.1 $B0J>e(B, SEMI ($B$^(B -$B$?$O(B WEMI) 1.13.5 $B0J>e$,I,MW$G$9!#(B $B$=$NB>!"(B APEL $B$,I,MW$K$J$j$^$9$,!"I,(B -$BMW$J%P!<%8%g%s$O(B FLIM / SEMI (WEMI) $B%Q%C%1!<%8Fb$N(B README $B$r;2>H$7$F$/$@(B -$B$5$$!#(B - -T-gnus $B$N%P!<%8%g%s$O!"I,MW$J(B SEMI (WEMI) $B$*$h$S(B FLIM $B$N%P!<%8%g%s$K?<$/(B -$B4X78$7$F$$$^$9!#(B $BI,$:!"(B T-gnus $B$N%P!<%8%g%s$K$"$C$?(B SEMI (WEMI) $B$*$h$S(B -FLIM $B$r;HMQ$7$F$/$@$5$$!#(B +T-gnus 6.15 $B$r;HMQ$9$k$?$a$K$OJL%Q%C%1!<%8$N(B FLIM 1.4 $B$H(B SEMI 1.14 $B$,I,(B +$BMW$G$9!#(B $B$=$NB>!"(B APEL $B$,I,MW$K$J$j$^$9$,!"I,MW$J%P!<%8%g%s(B +$B$O(B FLIM / SEMI $B%Q%C%1!<%8Fb$N(B README $B$r;2>H$7$F$/$@$5$$!#(B + +T-gnus $B$N%P!<%8%g%s$O!"I,MW$J(B SEMI $B$*$h$S(B FLIM $B$N%P!<%8%g%s$K?<$/4X78$7(B +$B$F$$$^$9!#(B $BI,$:(B T-gnus $B$N%P!<%8%g%s$K$"$C$?(B SEMI $B$*$h$S(B FLIM $B$r;HMQ$7$F(B +$B$/$@$5$$!#(B @item Q1.2: $BF~