+1998-12-04 Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
+
+ * lisp/gnus.el (gnus-version-number): Update to 6.10.047.
+
+ * Sync up with Pterodactyl Gnus 0.62.
+
+ * README.ichikawa: Add description of required APEL/FLIM/SEMI.
+
1998-12-03 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/nndraft.el (nndraft-request-article): Don't bind
* T-gnus 6.8.17 is the last version based on Gnus v5.6.
After this , T-gnus 6.10 - this is based on Pterodactyl Gnus.
- The latest T-gnus is T-gnus 6.10.046 (Based on pgnus-0.61).
+ The latest T-gnus is T-gnus 6.10.047 (Based on pgnus-0.62).
+ It requires SEMI/WEMI-1.12 , FLIM-1.11 , APEL-9.6(or later).
+Thu Dec 3 12:53:58 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Pterodactyl Gnus v0.62 is released.
+
+1998-12-03 13:38:36 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-art.el (gnus-mime-view-all-parts): Work with multiparts.
+
+1998-12-03 Hrvoje Niksic <hniksic@srce.hr>
+
+ * mm-view.el (mm-inline-text): Use `point-min-marker' and
+ `point-max-marker'.
+
+1998-12-03 13:22:57 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * mailcap.el (mailcap-mime-extensions): Use image/xpm for xpms.
+
+ * gnus-art.el (gnus-mime-display-single): Check for attachment
+ before other tests.
+
+1998-12-03 Didier Verna <verna@inf.enst.fr>
+
+ * gnus-msg.el (gnus-configure-posting-styles): find a
+ posting-style entry in the group parameters, if any, and honor it
+ at the end.
+
+1998-12-03 13:03:37 Felix Lee <flee@teleport.com>
+
+ * nntp.el (nntp-after-change-function): Fix.
+
+1998-12-03 12:44:30 Mike McEwan <mike@lotusland.demon.co.uk>
+
+ * mml.el (mml-generate-mime-1): Insert literally.
+
+1998-12-03 00:23:17 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * mml.el (mml-insert-mime-headers): Removed debug.
+
+1998-12-02 22:22:03 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-sum.el (gnus-summary-show-article): Destroy parts when
+ prefixed.
+
+ * mm-encode.el (mm-content-transfer-encoding-defaults): Default
+ application/emacs-lisp to 8bit.
+
Wed Dec 2 20:24:27 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.61 is released.
(goto-char (posn-point pos))
(funcall response))))
-(defun gnus-mime-view-all-parts ()
+(defun gnus-mime-view-all-parts (&optional handles)
"View all the MIME parts."
(interactive)
(save-current-buffer
(set-buffer gnus-article-buffer)
- (let ((handles gnus-article-mime-handles)
+ (let ((handles (or handles gnus-article-mime-handles))
(rfc2047-default-charset gnus-newsgroup-default-charset)
(mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
- (while handles
- (mm-display-part (pop handles))))))
+ (if (stringp (car handles))
+ (gnus-mime-view-all-parts (cdr handles))
+ (mapcar 'mm-display-part handles)))))
(defun gnus-mime-save-part ()
"Save the MIME part under point."
(while ignored
(when (string-match (pop ignored) type)
(throw 'ignored nil)))
- (if (and (mm-automatic-display-p type)
- (or (mm-inlinable-part-p type)
- (mm-automatic-external-display-p type))
- (setq not-attachment
+ (if (and (setq not-attachment
(or (not (mm-handle-disposition handle))
(equal (car (mm-handle-disposition handle))
- "inline"))))
+ "inline")))
+ (mm-automatic-display-p type)
+ (or (mm-inlinable-part-p type)
+ (mm-automatic-external-display-p type)))
(setq display t)
(when (equal (car (split-string type "/"))
"text")
(".wav" . "audio/x-wav")
(".wrl" . "x-world/x-vrml")
(".xbm" . "image/xbm")
- (".xpm" . "image/x-pixmap")
+ (".xpm" . "image/xpm")
(".xwd" . "image/windowdump")
(".zip" . "application/zip")
(".ai" . "application/postscript")
(gnus-newsgroup-name (or gnus-newsgroup-name ""))
style match variable attribute value value-value)
(make-local-variable 'gnus-message-style-insertions)
+ ;; If the group has a posting-style parameter, add it at the end with a
+ ;; regexp matching everything, to be sure it takes precedence over all
+ ;; the others.
+ (unless (eq 0 (length gnus-newsgroup-name))
+ (let ((tmp-style (gnus-group-find-parameter gnus-newsgroup-name
+ 'posting-style t)))
+ (and tmp-style
+ (setq styles (append styles (list (cons ".*" tmp-style)))))
+ ))
;; Go through all styles and look for matches.
(while styles
(setq style (pop styles)
(or (null gnus-picons-group-excluded-groups)
(not (string-match gnus-picons-group-excluded-groups
gnus-newsgroup-name))))
- (let ((groups
- (if gnus-picons-display-article-move-p
- (list (gnus-group-real-name gnus-newsgroup-name))
- (split-string (mail-fetch-field "newsgroups") ",")))
- group)
+ (let* ((newsgroups (mail-fetch-field "newsgroups"))
+ (groups
+ (if (or gnus-picons-display-article-move-p
+ (not newsgroups))(mail-fetch-field "newsgroups")
+ (list (gnus-group-real-name gnus-newsgroup-name))
+ (split-string newsgroups ",")))
+ group)
(save-excursion
(gnus-picons-prepare-for-annotations)
(while (setq group (pop groups))
gnus-break-pages
gnus-show-mime
gnus-visual)
+ ;; Destroy any MIME parts.
+ (when (gnus-buffer-live-p gnus-article-buffer)
+ (save-excursion
+ (set-buffer gnus-article-buffer)
+ (mm-destroy-parts gnus-article-mime-handles)))
(gnus-summary-select-article nil 'force)))
(gnus-summary-goto-subject gnus-current-article)
(gnus-summary-position-point))
(defconst gnus-product-name "T-gnus"
"Product name of this version of gnus.")
-(defconst gnus-version-number "6.10.046"
+(defconst gnus-version-number "6.10.047"
"Version number for this version of gnus.")
-(defconst gnus-original-version-number "0.61"
+(defconst gnus-original-version-number "0.62"
"Version number for this version of Gnus.")
(defconst gnus-original-product-name "Pterodactyl Gnus"
(eq (device-type) 'x)))
("image/xpm" mm-inline-image
(and window-system (featurep 'xpm)))
+ ("image/x-pixmap" mm-inline-image
+ (and window-system (featurep 'xpm)))
("image/bmp" mm-inline-image
(and window-system (featurep 'bmp)))
("text/plain" mm-inline-text t)
"Return an image instance based on HANDLE."
(let ((type (cadr (split-string (car (mm-handle-type handle)) "/")))
spec)
+ ;; Allow some common translations.
+ (setq type
+ (cond
+ ((equal type "x-pixmap")
+ "xpm")
+ (t type)))
(or (mm-handle-cache handle)
(mm-with-unibyte-buffer
(insert-buffer-substring (mm-handle-buffer handle))
(defvar mm-content-transfer-encoding-defaults
'(("text/.*" quoted-printable)
+ ("application/emacs-lisp" 8bit)
(".*" base64))
"Alist of regexps that match MIME types and their encodings.")
handle
`(lambda ()
(let (buffer-read-only)
- (delete-region
- ,(set-marker (make-marker) (point-min))
- ,(set-marker (make-marker) (point-max)))))))))
+ (delete-region ,(point-min-marker) ,(point-max-marker))))))))
((equal type "html")
(mm-setup-w3)
(setq text (mm-get-part handle))
(remove-specifier
(face-property 'default prop) (current-buffer)))
'(background background-pixmap foreground))
- (delete-region
- ,(set-marker (make-marker) (point-min))
- ,(set-marker (make-marker) (point-max)))))))))
+ (delete-region ,(point-min-marker) ,(point-max-marker))))))))
((or (equal type "enriched")
(equal type "richtext"))
(save-excursion
(eq charset current)))
;; The initial charset was ascii.
((eq current 'ascii)
- (setq current charset))
+ (setq current charset
+ space nil
+ newline nil
+ paragraph nil))
;; We have a change in charsets.
(t
(push (append
(setq coded (buffer-string)))
(mm-with-unibyte-buffer
(if (setq filename (cdr (assq 'filename cont)))
- (insert-file-contents filename)
+ (insert-file-contents-literally filename)
(insert (cdr (assq 'contents cont))))
(setq encoding (mm-encode-buffer type)
coded (buffer-string))))
cont '(name access-type expiration size permission)))
(not (equal type "text/plain")))
(when (consp charset)
- (debug)
(error
- "Can't encode a part with several charsets. Insert a <#part>."))
+ "Can't encode a part with several charsets."))
(insert "Content-Type: " type)
(when charset
(insert "; " (mail-header-encode-parameter
;; we only care about insertions at eob
(when (and (eq 0 len) (eq (point-max) end))
(save-match-data
- (nntp-async-trigger (get-buffer-process (current-buffer)))))
+ (let ((proc (get-buffer-process (current-buffer))))
+ (when proc
+ (nntp-async-trigger proc)))))
;; any throw from after-change-functions will leave it
;; set to nil. so we reset it here, if necessary.
(when quit-flag
+1998-12-03 13:34:48 James Troup <james@nocrew.org>
+
+ * gnus.texi (MIME Commands): Typo fix.
+
+1998-12-03 Didier Verna <verna@inf.enst.fr>
+
+ * gnus.texi (Group Parameters): update for the posting-style group
+ parameter.
+
1998-12-02 01:04:22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Emacsen): Addition.
\input texinfo @c -*-texinfo-*-
@setfilename gnus-ja
-@settitle Semi-gnus 6.10.046 Manual
+@settitle Semi-gnus 6.10.047 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Semi-gnus 6.10.046 Manual
+@title Semi-gnus 6.10.047 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.046 \e$B$KBP1~$7$^$9!#\e(B
+\e$B$3$N@bL@=q$O\e(B Semi-gnus 6.10.047 \e$B$KBP1~$7$^$9!#\e(B
@end ifinfo
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Semi-gnus 6.10.046 Manual
+@settitle Semi-gnus 6.10.047 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Semi-gnus 6.10.046 Manual
+@title Semi-gnus 6.10.047 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.046.
+This manual corresponds to Semi-gnus 6.10.047.
@end ifinfo
group. @code{dummy-variable} will be set to the result of the
@code{(ding)} form, but who cares?
+@item posting-style
+You can store additional posting style information for this group only
+here (@pxref{Posting Styles}). The format is that of an entry in the
+@code{gnus-posting-styles} alist, except that there's no regexp matching
+the group name (of course). Style elements in this group parameter will
+take precedence over the ones found in @code{gnus-posting-styles}.
+
+For instance, if you want a funky name and signature in this group only,
+instead of hacking @code{gnus-posting-styles}, you could put something
+like this in the group parameters:
+
+@example
+(posting-style
+ (name "Funky Name")
+ (signature "Funky Signature"))
+@end example
+
@end table
Use the @kbd{G p} command to edit group parameters of a group. You
@cindex MIME decoding
@table @kbd
-@item M-tgnus-summary-display-buttonized
+@item M-t
@kindex M-t (Summary)
@findex gnus-summary-display-buttonized
Toggle the buttonized display of the article buffer
\input texinfo @c -*-texinfo-*-
@setfilename message-ja
-@settitle Message 6.10.046 Manual
+@settitle Message 6.10.047 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Message 6.10.046 Manual
+@title Message 6.10.047 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.046 \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.047 \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.046 Manual
+@settitle Message 6.10.047 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Message 6.10.046 Manual
+@title Message 6.10.047 Manual
@author by Lars Magne Ingebrigtsen
@page
* Key Index:: List of Message mode keys.
@end menu
-This manual corresponds to Message 6.10.046. Message is
+This manual corresponds to Message 6.10.047. Message is
distributed with the Gnus distribution bearing the same version number
as this manual.
projects / elisp / gnus.git- / commitdiff