* Pterodactyl Gnus v0.47 is released
@ 1998-11-15 21:03 Lars Magne Ingebrigtsen
0 siblings, 0 replies; 3+ messages in thread
From: Lars Magne Ingebrigtsen @ 1998-11-15 21:03 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 3+ messages in thread
* Pterodactyl Gnus v0.47 is released
@ 1998-11-15 21:02 Lars Magne Ingebrigtsen
1998-11-15 22:29 ` Carsten Leonhardt
0 siblings, 1 reply; 3+ messages in thread
From: Lars Magne Ingebrigtsen @ 1998-11-15 21:02 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Pterodactyl Gnus v0.47 is released
1998-11-15 21:02 Lars Magne Ingebrigtsen
@ 1998-11-15 22:29 ` Carsten Leonhardt
0 siblings, 0 replies; 3+ messages in thread
From: Carsten Leonhardt @ 1998-11-15 22:29 UTC (permalink / raw)
[-- 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)
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~1998-11-15 22:29 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1998-11-15 21:03 Pterodactyl Gnus v0.47 is released Lars Magne Ingebrigtsen
-- strict thread matches above, loose matches on Subject: below --
1998-11-15 21:02 Lars Magne Ingebrigtsen
1998-11-15 22:29 ` Carsten Leonhardt
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).