Pterodactyl Gnus v0.47 is released

Pterodactyl Gnus v0.47 is released

[Lars Magne Ingebrigtsen]

part has changed to #part, and stuff.

Patches for this release:



*** pub/pgnus/lisp/ChangeLog	Sun Nov 15 02:01:31 1998
--- pgnus/lisp/ChangeLog	Sun Nov 15 22:01:55 1998
***************
*** 1,3 ****
--- 1,16 ----
+ Sun Nov 15 22:01:55 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Pterodactyl Gnus v0.47 is released.
+ 
+ 1998-11-15 20:11:33  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* 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  <larsi@menja.ifi.uio.no>
  
  	* 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 "<part type=%s filename=\"%s\"></part>\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 "</multipart")))
        (cond
!        ((looking-at "<multipart")
  	(push (nconc (mml-read-tag) (mml-parse-1)) struct))
!        ((looking-at "<part")
  	(push (nconc (mml-read-tag) (list (cons 'contents (mml-read-part))))
  	      struct))
         (t
--- 50,60 ----
    "Parse the current buffer as an MML document."
    (let (struct)
      (while (and (not (eobp))
! 		(not (looking-at "</#multipart")))
        (cond
!        ((looking-at "<#multipart")
  	(push (nconc (mml-read-tag) (mml-parse-1)) struct))
!        ((looking-at "<#part")
  	(push (nconc (mml-read-tag) (list (cons 'contents (mml-read-part))))
  	      struct))
         (t
***************
*** 67,73 ****
  (defun mml-read-tag ()
    "Read a tag and return the contents."
    (let (contents name elem val)
!     (forward-char 1)
      (setq name (buffer-substring (point) (progn (forward-sexp 1) (point))))
      (skip-chars-forward " \t\n")
      (while (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 "</?\\(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))))))
  
--- 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

Re: Pterodactyl Gnus v0.47 is released

[Carsten Leonhardt]

[-- Attachment #1: Type: text/plain, Size: 658 bytes --]


>>>>> "Lars" == Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:

Lars> part has changed to #part, and stuff.

When I 'B m' an article, the article gets a whole set of new (for gnus
vital) headers (the old ones are separated by a newline from the new
ones).

< #multipart type=alternative>
leo
< #part type=text/enriched>
<bold>Carsten</bold>
< #/multipart>

(Lessee if I can multipart...)

...

Gnus hangs when trying to send the above message (I now disabled
multiparting by inserting spaces).

Backtrace:

(Argh! I tried to send this without any mime-stuff, but I get barfed
at for unbalanced parentheses in my mail!) <-> better close this paren 
=:-/

[-- Attachment #2: Type: text/plain, Size: 2006 bytes --]


Signaling: (quit)
  (if (re-search-forward "<#/?\\(multi\\)?part." nil t) (prog1 (buffer-substring beg ...) (unless ... ...)) (buffer-substring beg (goto-char ...)))
)
  (let ((beg ...)) (if (re-search-forward "<#/?\\(multi\\)?part." nil t) (prog1 ... ...) (buffer-substring beg ...)))
)
  mml-read-part()
  (cons (quote contents) (mml-read-part))
)
  (list (quote part) (quote (type . "text/plain")) (cons (quote contents) (mml-read-part)))
)
  (cons (list (quote part) (quote ...) (cons ... ...)) struct)
)
  (setq struct (cons (list ... ... ...) struct))
)
  (push (list (quote part) (quote ...) (cons ... ...)) struct)
)
  (cond ((looking-at "<#multipart") (push ... struct)) ((looking-at "<#part") (push ... struct)) (t (push ... struct)))
)
  (while (and (not ...) (not ...)) (cond (... ...) (... ...) (t ...)))
)
  (let (struct) (while (and ... ...) (cond ... ... ...)) (unless (eobp) (forward-line 1)) (nreverse struct))
)
  mml-parse-1()
  (nconc (mml-read-tag) (mml-parse-1))
)
  (cons (nconc (mml-read-tag) (mml-parse-1)) struct)
)
  (setq struct (cons (nconc ... ...) struct))
)
  (push (nconc (mml-read-tag) (mml-parse-1)) struct)
)
  (cond ((looking-at "<#multipart") (push ... struct)) ((looking-at "<#part") (push ... struct)) (t (push ... struct)))
)
  (while (and (not ...) (not ...)) (cond (... ...) (... ...) (t ...)))
)
  (let (struct) (while (and ... ...) (cond ... ... ...)) (unless (eobp) (forward-line 1)) (nreverse struct))
)
  mml-parse-1()
  (progn (set-syntax-table mml-syntax-table) (mml-parse-1))
)
  (unwind-protect (progn (set-syntax-table mml-syntax-table) (mml-parse-1)) (set-syntax-table table))
)
  (let ((table ...)) (unwind-protect (progn ... ...) (set-syntax-table table)))
)
  mml-parse()
  (let ((cont ...)) (with-temp-buffer (if ... ... ...) (buffer-string)))
)
  mml-generate-mime()
  message-encode-message-body()
  message-send-mail(nil)
  message-send-via-mail(nil)
  message-send(nil)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit)

Pterodactyl Gnus v0.47 is released

[Lars Magne Ingebrigtsen]

part has changed to #part, and stuff.

Get it from <URL:http://www.gnus.org/pgnus.tar.gz> or
"/ftp@ftp.gnus.org:/pub/emacs/gnus/".  The patch is available as
<URL:http://www.gnus.org/patches/pgnus-0.46-0.47.diff.gz>.

ChangeLog since last release:

Sun Nov 15 22:01:55 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>

	* gnus.el: Pterodactyl Gnus v0.47 is released.

1998-11-15 20:11:33  Lars Magne Ingebrigtsen  <larsi@gnus.org>

	* 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. 



-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Magne Ingebrigtsen