*** pub/pgnus/lisp/gnus-art.el Wed Dec 2 21:26:35 1998 --- pgnus/lisp/gnus-art.el Thu Dec 3 13:55:02 1998 *************** *** 2349,2364 **** (goto-char (posn-point pos)) (funcall response)))) ! (defun gnus-mime-view-all-parts () "View all the MIME parts." (interactive) (save-current-buffer (set-buffer gnus-article-buffer) ! (let ((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)))))) (defun gnus-mime-save-part () "Save the MIME part under point." --- 2349,2365 ---- (goto-char (posn-point pos)) (funcall response)))) ! (defun gnus-mime-view-all-parts (&optional handles) "View all the MIME parts." (interactive) (save-current-buffer (set-buffer gnus-article-buffer) ! (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)) ! (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." *************** *** 2635,2647 **** (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 (or (not (mm-handle-disposition handle)) (equal (car (mm-handle-disposition handle)) ! "inline")))) (setq display t) (when (equal (car (split-string type "/")) "text") --- 2636,2648 ---- (while ignored (when (string-match (pop ignored) type) (throw 'ignored nil))) ! (if (and (setq not-attachment (or (not (mm-handle-disposition handle)) (equal (car (mm-handle-disposition handle)) ! "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") *** pub/pgnus/lisp/gnus-msg.el Sat Oct 24 20:35:25 1998 --- pgnus/lisp/gnus-msg.el Thu Dec 3 13:55:02 1998 *************** *** 1058,1063 **** --- 1058,1072 ---- (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) *** pub/pgnus/lisp/gnus-picon.el Wed Dec 2 21:26:35 1998 --- pgnus/lisp/gnus-picon.el Thu Dec 3 13:55:02 1998 *************** *** 343,353 **** (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) (save-excursion (gnus-picons-prepare-for-annotations) (while (setq group (pop groups)) --- 343,355 ---- (or (null gnus-picons-group-excluded-groups) (not (string-match gnus-picons-group-excluded-groups gnus-newsgroup-name)))) ! (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)) *** pub/pgnus/lisp/gnus-sum.el Wed Dec 2 21:26:36 1998 --- pgnus/lisp/gnus-sum.el Thu Dec 3 13:55:03 1998 *************** *** 6994,6999 **** --- 6994,7004 ---- gnus-display-mime-function gnus-break-pages 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)) *** pub/pgnus/lisp/gnus.el Wed Dec 2 21:41:15 1998 --- pgnus/lisp/gnus.el Thu Dec 3 13:55:03 1998 *************** *** 254,260 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.61" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) --- 254,260 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.62" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) *** pub/pgnus/lisp/mailcap.el Fri Nov 27 13:18:57 1998 --- pgnus/lisp/mailcap.el Thu Dec 3 13:55:03 1998 *************** *** 749,755 **** (".wav" . "audio/x-wav") (".wrl" . "x-world/x-vrml") (".xbm" . "image/xbm") ! (".xpm" . "image/x-pixmap") (".xwd" . "image/windowdump") (".zip" . "application/zip") (".ai" . "application/postscript") --- 749,755 ---- (".wav" . "audio/x-wav") (".wrl" . "x-world/x-vrml") (".xbm" . "image/xbm") ! (".xpm" . "image/xpm") (".xwd" . "image/windowdump") (".zip" . "application/zip") (".ai" . "application/postscript") *** pub/pgnus/lisp/mm-decode.el Wed Dec 2 02:46:31 1998 --- pgnus/lisp/mm-decode.el Thu Dec 3 13:55:03 1998 *************** *** 67,72 **** --- 67,74 ---- (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) *************** *** 543,548 **** --- 545,556 ---- "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)) *** pub/pgnus/lisp/mm-encode.el Sun Nov 15 01:11:51 1998 --- pgnus/lisp/mm-encode.el Thu Dec 3 13:55:04 1998 *************** *** 29,34 **** --- 29,35 ---- (defvar mm-content-transfer-encoding-defaults '(("text/.*" quoted-printable) + ("application/emacs-lisp" 8bit) (".*" base64)) "Alist of regexps that match MIME types and their encodings.") *** pub/pgnus/lisp/mm-view.el Tue Dec 1 01:36:06 1998 --- pgnus/lisp/mm-view.el Thu Dec 3 13:55:04 1998 *************** *** 66,74 **** handle `(lambda () (let (buffer-read-only) ! (delete-region ! ,(set-marker (make-marker) (point-min)) ! ,(set-marker (make-marker) (point-max))))))))) ((equal type "html") (mm-setup-w3) (setq text (mm-get-part handle)) --- 66,72 ---- handle `(lambda () (let (buffer-read-only) ! (delete-region ,(point-min-marker) ,(point-max-marker)))))))) ((equal type "html") (mm-setup-w3) (setq text (mm-get-part handle)) *************** *** 89,97 **** (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))))))))) ((or (equal type "enriched") (equal type "richtext")) (save-excursion --- 87,93 ---- (remove-specifier (face-property 'default prop) (current-buffer))) '(background background-pixmap foreground)) ! (delete-region ,(point-min-marker) ,(point-max-marker)))))))) ((or (equal type "enriched") (equal type "richtext")) (save-excursion *** pub/pgnus/lisp/mml.el Wed Dec 2 21:41:16 1998 --- pgnus/lisp/mml.el Thu Dec 3 13:55:04 1998 *************** *** 102,108 **** (eq charset current))) ;; The initial charset was ascii. ((eq current 'ascii) ! (setq current charset)) ;; We have a change in charsets. (t (push (append --- 102,111 ---- (eq charset current))) ;; The initial charset was ascii. ((eq current 'ascii) ! (setq current charset ! space nil ! newline nil ! paragraph nil)) ;; We have a change in charsets. (t (push (append *************** *** 214,220 **** (setq coded (buffer-string))) (mm-with-unibyte-buffer (if (setq filename (cdr (assq 'filename cont))) ! (insert-file-contents filename) (insert (cdr (assq 'contents cont)))) (setq encoding (mm-encode-buffer type) coded (buffer-string)))) --- 217,223 ---- (setq coded (buffer-string))) (mm-with-unibyte-buffer (if (setq filename (cdr (assq 'filename cont))) ! (insert-file-contents-literally filename) (insert (cdr (assq 'contents cont)))) (setq encoding (mm-encode-buffer type) coded (buffer-string)))) *************** *** 313,321 **** 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>.")) (insert "Content-Type: " type) (when charset (insert "; " (mail-header-encode-parameter --- 316,323 ---- cont '(name access-type expiration size permission))) (not (equal type "text/plain"))) (when (consp charset) (error ! "Can't encode a part with several charsets.")) (insert "Content-Type: " type) (when charset (insert "; " (mail-header-encode-parameter *** pub/pgnus/lisp/nntp.el Mon Nov 30 22:47:02 1998 --- pgnus/lisp/nntp.el Thu Dec 3 13:55:04 1998 *************** *** 945,951 **** ;; 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))))) ;; any throw from after-change-functions will leave it ;; set to nil. so we reset it here, if necessary. (when quit-flag --- 945,953 ---- ;; we only care about insertions at eob (when (and (eq 0 len) (eq (point-max) end)) (save-match-data ! (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 *** pub/pgnus/lisp/ChangeLog Wed Dec 2 21:41:15 1998 --- pgnus/lisp/ChangeLog Thu Dec 3 13:55:01 1998 *************** *** 1,3 **** --- 1,49 ---- + Thu Dec 3 12:53:58 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.62 is released. + + 1998-12-03 13:38:36 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-mime-view-all-parts): Work with multiparts. + + 1998-12-03 Hrvoje Niksic + + * mm-view.el (mm-inline-text): Use `point-min-marker' and + `point-max-marker'. + + 1998-12-03 13:22:57 Lars Magne Ingebrigtsen + + * 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 + + * 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 + + * nntp.el (nntp-after-change-function): Fix. + + 1998-12-03 12:44:30 Mike McEwan + + * mml.el (mml-generate-mime-1): Insert literally. + + 1998-12-03 00:23:17 Lars Magne Ingebrigtsen + + * mml.el (mml-insert-mime-headers): Removed debug. + + 1998-12-02 22:22:03 Lars Magne Ingebrigtsen + + * 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 * gnus.el: Pterodactyl Gnus v0.61 is released. *** pub/pgnus/texi/gnus.texi Wed Dec 2 21:41:17 1998 --- pgnus/texi/gnus.texi Thu Dec 3 13:55:06 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.61 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.62 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 318,324 **** @tex @titlepage ! @title Pterodactyl Gnus 0.61 Manual @author by Lars Magne Ingebrigtsen @page --- 318,324 ---- @tex @titlepage ! @title Pterodactyl Gnus 0.62 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 354,360 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Pterodactyl Gnus 0.61. @end ifinfo --- 354,360 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Pterodactyl Gnus 0.62. @end ifinfo *************** *** 2165,2170 **** --- 2165,2187 ---- 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 *************** *** 6922,6928 **** @cindex MIME decoding @table @kbd ! @item M-tgnus-summary-display-buttonized @kindex M-t (Summary) @findex gnus-summary-display-buttonized Toggle the buttonized display of the article buffer --- 6939,6945 ---- @cindex MIME decoding @table @kbd ! @item M-t @kindex M-t (Summary) @findex gnus-summary-display-buttonized Toggle the buttonized display of the article buffer *** pub/pgnus/texi/message.texi Wed Dec 2 21:41:17 1998 --- pgnus/texi/message.texi Thu Dec 3 13:55:06 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.61 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.62 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Pterodactyl Message 0.61 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Pterodactyl Message 0.62 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 83,89 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Pterodactyl Message 0.61. Message is distributed with the Gnus distribution bearing the same version number as this manual. --- 83,89 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Pterodactyl Message 0.62. Message is distributed with the Gnus distribution bearing the same version number as this manual. *** pub/pgnus/texi/ChangeLog Wed Dec 2 21:26:39 1998 --- pgnus/texi/ChangeLog Thu Dec 3 13:55:06 1998 *************** *** 1,3 **** --- 1,12 ---- + 1998-12-03 13:34:48 James Troup + + * gnus.texi (MIME Commands): Typo fix. + + 1998-12-03 Didier Verna + + * gnus.texi (Group Parameters): update for the posting-style group + parameter. + 1998-12-02 01:04:22 Lars Magne Ingebrigtsen * gnus.texi (Emacsen): Addition.