From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18698 Path: main.gmane.org!not-for-mail From: Lars Magne Ingebrigtsen Newsgroups: gmane.emacs.gnus.general Subject: Pterodactyl Gnus v0.47 is released Date: 15 Nov 1998 22:03:21 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 X-Trace: main.gmane.org 1035157178 7583 80.91.224.250 (20 Oct 2002 23:39:38 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:39:38 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id QAA18800 for ; Sun, 15 Nov 1998 16:01:37 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id PAB27756; Sun, 15 Nov 1998 15:01:27 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 15 Nov 1998 15:01:21 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id PAA04605 for ; Sun, 15 Nov 1998 15:01:07 -0600 (CST) Original-Received: from sparky.gnus.org (ppp009.uio.no [129.240.240.10]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id QAA18771 for ; Sun, 15 Nov 1998 16:00:56 -0500 (EST) Original-Received: (from larsi@localhost) by sparky.gnus.org (8.8.5/8.8.5) id WAA13354; Sun, 15 Nov 1998 22:05:25 +0100 Original-to: ding@gnus.org X-Now-Reading: Elizabeth Hand's _Waking the Moon_ X-Now-Playing: Depeche Mode's _Construction Time Again_ X-Face: &w!^oO~dS|}-P0~ge{$c!h\ + + * gnus.el: Pterodactyl Gnus v0.47 is released. + + 1998-11-15 20:11:33 Lars Magne Ingebrigtsen + + * message.el (message-encode-message-body): Insert MIME warning. + + * mml.el (mml-read-tag): Look for #tag. + + * mm-util.el (mm-find-charset-region): Check whether + enable-multibyte-characters is bound. + Sun Nov 15 02:01:31 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.46 is released. *** pub/pgnus/lisp/gnus.el Sun Nov 15 01:17:42 1998 --- pgnus/lisp/gnus.el Sun Nov 15 02:04:04 1998 *************** *** 254,260 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.46" "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.47" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) *** pub/pgnus/lisp/message.el Sun Nov 15 02:01:16 1998 --- pgnus/lisp/message.el Sun Nov 15 21:55:30 1998 *************** *** 4087,4109 **** (format "MIME type for %s: " file) (mapcar (lambda (m) (list (cdr m))) mailcap-mime-extensions) nil nil type)))) ! (insert (format "\n" type file))) (defun message-encode-message-body () (message-goto-body) ! (narrow-to-region (point) (point-max)) ! (let ((new (mml-generate-mime))) ! (delete-region (point-min) (point-max)) ! (insert new) ! (goto-char (point-min)) ! (widen) ! (forward-line -1) ! (let ((beg (point)) ! (line (buffer-substring (point) (progn (forward-line 1) (point))))) ! (delete-region beg (point)) ! (insert "Mime-Version: 1.0\n") ! (insert line)))) (run-hooks 'message-load-hook) --- 4087,4115 ---- (format "MIME type for %s: " file) (mapcar (lambda (m) (list (cdr m))) mailcap-mime-extensions) nil nil type)))) ! (insert (format "<#part type=%s filename=\"%s\"><#/part>\n" type file))) (defun message-encode-message-body () (message-goto-body) ! (save-restriction ! (narrow-to-region (point) (point-max)) ! (let ((new (mml-generate-mime))) ! (delete-region (point-min) (point-max)) ! (insert new) ! (goto-char (point-min)) ! (widen) ! (forward-line -1) ! (let ((beg (point)) ! (line (buffer-substring (point) (progn (forward-line 1) (point))))) ! (delete-region beg (point)) ! (insert "Mime-Version: 1.0\n") ! (search-forward "\n\n") ! (insert line) ! (when (save-excursion ! (re-search-backward "^Content-Type: multipart/" nil t)) ! (insert "This is a MIME multipart message. If you are reading\n") ! (insert "this, you shouldn't.\n\n")))))) (run-hooks 'message-load-hook) *** pub/pgnus/lisp/mm-util.el Sat Nov 14 04:31:29 1998 --- pgnus/lisp/mm-util.el Sun Nov 15 20:11:30 1998 *************** *** 224,230 **** (defun mm-find-charset-region (b e) "Return a list of charsets in the region." ! (if enable-multibyte-characters (find-charset-region b e) ;; We are in a unibyte buffer, so we futz around a bit. (save-excursion --- 224,231 ---- (defun mm-find-charset-region (b e) "Return a list of charsets in the region." ! (if (and (boundp 'enable-multibyte-characters) ! enable-multibyte-characters) (find-charset-region b e) ;; We are in a unibyte buffer, so we futz around a bit. (save-excursion *** pub/pgnus/lisp/mml.el Sun Nov 15 00:26:44 1998 --- pgnus/lisp/mml.el Sun Nov 15 21:53:20 1998 *************** *** 50,60 **** "Parse the current buffer as an MML document." (let (struct) (while (and (not (eobp)) ! (not (looking-at "")) --- 67,73 ---- (defun mml-read-tag () "Read a tag and return the contents." (let (contents name elem val) ! (forward-char 2) (setq name (buffer-substring (point) (progn (forward-sexp 1) (point)))) (skip-chars-forward " \t\n") (while (not (looking-at ">")) *************** *** 84,93 **** (defun mml-read-part () "Return the buffer up till the next part, multipart or closing part or multipart." (let ((beg (point))) ! (if (re-search-forward "") (goto-char (match-beginning 0)))) (buffer-substring beg (goto-char (point-max)))))) --- 84,93 ---- (defun mml-read-part () "Return the buffer up till the next part, multipart or closing part or multipart." (let ((beg (point))) ! (if (re-search-forward "<#/?\\(multi\\)?part." nil t) (prog1 (buffer-substring beg (match-beginning 0)) ! (unless (equal (match-string 0) "<#/part>") (goto-char (match-beginning 0)))) (buffer-substring beg (goto-char (point-max)))))) *************** *** 113,119 **** (with-temp-buffer (if (setq filename (cdr (assq 'filename cont))) (insert-file-contents-literally filename) ! (insert (cdr (assq 'contents cont)))) (if (equal (car (split-string type "/")) "text") (setq charset (mm-encode-body) encoding (mm-body-encoding)) --- 113,125 ---- (with-temp-buffer (if (setq filename (cdr (assq 'filename cont))) (insert-file-contents-literally filename) ! (save-restriction ! (narrow-to-region (point) (point)) ! (insert (cdr (assq 'contents cont))) ! (goto-char (point-min)) ! (while (re-search-forward "<#!+\\(part\\|multipart\\)" nil t) ! (delete-region (+ (match-beginning 0) 2) ! (+ (match-beginning 0) 3))))) (if (equal (car (split-string type "/")) "text") (setq charset (mm-encode-body) encoding (mm-body-encoding)) *************** *** 141,147 **** (mml-generate-mime-1 (pop cont))) (insert "--" mml-boundary "--\n"))) (t ! (error "%S" cont)))) (provide 'mml) --- 147,153 ---- (mml-generate-mime-1 (pop cont))) (insert "--" mml-boundary "--\n"))) (t ! (error "Invalid element: %S" cont)))) (provide 'mml) *** pub/pgnus/texi/gnus.texi Sun Nov 15 02:01:30 1998 --- pgnus/texi/gnus.texi Sun Nov 15 22:01:54 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.46 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.47 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 318,324 **** @tex @titlepage ! @title Pterodactyl Gnus 0.46 Manual @author by Lars Magne Ingebrigtsen @page --- 318,324 ---- @tex @titlepage ! @title Pterodactyl Gnus 0.47 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.46. @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.47. @end ifinfo *** pub/pgnus/texi/message.texi Sun Nov 15 02:01:30 1998 --- pgnus/texi/message.texi Sun Nov 15 22:01:55 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.46 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.47 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Pterodactyl Message 0.46 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Pterodactyl Message 0.47 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.46. 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.47. Message is distributed with the Gnus distribution bearing the same version number as this manual. -- (domestic pets only, the antidote for overdose, milk.) larsi@ifi.uio.no * Lars Magne Ingebrigtsen