1998-11-16 Katsumi Yamaoka <yamaoka@jpl.org>
+ * 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 <yamaoka@jpl.org>
+
* make.bat: Replace line endings from `LF' to `CRLF'.
1998-11-16 Katsumi Yamaoka <yamaoka@jpl.org>
1998-11-13 Katsumi Yamaoka <yamaoka@jpl.org>
+ * 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'.
1998-11-09 Katsumi Yamaoka <yamaoka@jpl.org>
+ * 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 <yamaoka@jpl.org>
+
* lisp/pop3-fma.el: Set the value of `nnmail-read-passwd' as a
symbol `pop3-fma-read-passwd'.
(gnus-bbdb/update-record): Use `save-excursion' and change timing
of `save-restriction'.
+1998-10-31 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * 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 <t-ichi@po.shiojiri.ne.jp>
* lisp/nnheader.el (nnheader-decode-field-body): New inline
1998-10-30 Katsumi Yamaoka <yamaoka@jpl.org>
+ * 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.
* 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 <yamaoka@jpl.org>
* lisp/gnus-art.el (gnus-article-mime-edit-article-setup): Force
* 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).
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.
\e$B$J4D6-$O\e(B SEMI \e$B$N\e(B README.ja \e$B$r;2>H$7$F$/$@$5$$!#\e(B
T-gnus \e$B$G$OBg$-$JJQ99$,9T$J$o$l$^$7$?!#$3$l$O8E$$\e(B SEMI \e$B%Q%C%1!<%8!"\e(B
-\e$BNc$($P\e(B FLIM 1.10.5, SEMI 1.9.1 \e$B$G$OF0:n$7$^$;$s!#$b$7$=$l$i$r$*;H$$$J\e(B
+\e$BNc$($P\e(B FLIM 1.11.3, SEMI 1.10.2 \e$B$G$OF0:n$7$^$;$s!#$b$7$=$l$i$r$*;H$$$J\e(B
\e$B$i$P!"\e(BT-gnus \e$B$r%$%s%9%H!<%k$9$kA0$K?7$7$$$b$N$HF~$lBX$($F2<$5$$!#\e(B
-\e$B?d>)$5$l$k$N$O\e(B APEL 9.10, FLIM 1.11.3 \e$B$*$h$S\e(B SEMI 1.10.2 \e$B$^$?$O$=$l$i$h\e(B
+\e$B?d>)$5$l$k$N$O\e(B APEL 9.11, FLIM 1.12.0 \e$B$*$h$S\e(B SEMI 1.11.0 \e$B$^$?$O$=$l$i$h\e(B
\e$B$j?7$7$$$b$N$G$9!#\e(B
(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)
;;;
(defun gnus-article-header-presentation-method (entity situation)
- (mime-insert-decoded-header entity)
+ (mime-insert-header entity)
)
(set-alist 'mime-header-presentation-method-alist
;; Copyright (C) 1997,98 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
-;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
+;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
;; Keywords: mail, news, MIME, offline
;; This file is part of GNU Emacs.
;;; 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)
;;;!!!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))
(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))
(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."
(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"
"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.")
(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))
(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)
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
\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
@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
\e$B$J8@8l7w$r:9JL$7$^$;$s!#$"$"!"%/%j%s%4%s$NJ}$O\e(B Unicode Next Generation\e$B$r\e(B
\e$B$*BT$A$/$@$5$$!#\e(B
-\e$B$3$N@bL@=q$O\e(B Semi-gnus 6.10.033 \e$B$KBP1~$7$^$9!#\e(B
+\e$B$3$N@bL@=q$O\e(B Semi-gnus 6.10.034 \e$B$KBP1~$7$^$9!#\e(B
@end ifinfo
\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
@tex
@titlepage
-@title Semi-gnus 6.10.033 Manual
+@title Semi-gnus 6.10.034 Manual
@author by Lars Magne Ingebrigtsen
@page
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
\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
@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
* Key Index:: \e$B%a%C%;!<%8%b!<%I%-!<$N0lMw!#\e(B
@end menu
-\e$B$3$N%^%K%e%"%k$O\e(B Message 6.10.033 \e$B$KBP1~$7$^$9!#\e(BMessage \e$B$O$3$N%^%K%e%"%k$H\e(B
+\e$B$3$N%^%K%e%"%k$O\e(B Message 6.10.034 \e$B$KBP1~$7$^$9!#\e(BMessage \e$B$O$3$N%^%K%e%"%k$H\e(B
\e$BF1$8HGHV9f$N\e(B Gnus \e$B$NG[I[$H6&$KG[I[$5$l$^$9!#\e(B
\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
@tex
@titlepage
-@title Message 6.10.033 Manual
+@title Message 6.10.034 Manual
@author by Lars Magne Ingebrigtsen
@page
* 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.
projects / elisp / gnus.git- / commitdiff