From: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
Subject: Pterodactyl Gnus v0.47 is released
Date: 15 Nov 1998 22:03:21 +0100 [thread overview]
Message-ID: <m3hfw0y8h2.fsf@sparky.gnus.org> (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
next reply other threads:[~1998-11-15 21:03 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-11-15 21:03 Lars Magne Ingebrigtsen [this message]
-- strict thread matches above, loose matches on Subject: below --
1998-11-15 21:02 Lars Magne Ingebrigtsen
1998-11-15 22:29 ` Carsten Leonhardt
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3hfw0y8h2.fsf@sparky.gnus.org \
--to=larsi@ifi.uio.no \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).