Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 6edb89f78b68b78d7418b8288ea0774921c506a2 1 parent 9a26e97
@larsmagne larsmagne authored
View
13 lisp/ChangeLog
@@ -1,3 +1,16 @@
+Wed Dec 2 20:24:27 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Pterodactyl Gnus v0.61 is released.
+
+1998-12-02 21:12:56 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * mml.el (mml-parse-1): Skipped parts.
+ (mml-insert-mime-headers): Nil is a list.
+ (mml-generate-mime-1): Don't insert literally.
+ (mml-read-tag): Drop text props.
+ (mml-read-part): Ditto.
+ (mml-parse-singlepart-with-multiple-charsets): Ditto.
+
Wed Dec 2 20:07:16 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.60 is released.
View
2  lisp/gnus.el
@@ -254,7 +254,7 @@ is restarted, and sometimes reloaded."
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.60"
+(defconst gnus-version-number "0.61"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
View
29 lisp/mml.el
@@ -84,9 +84,9 @@
"Warning: Your message contains %d parts. Really send? "
(length nstruct)))))
(error "Edit your message to use only one charset"))
- (setq struct (nconc nstruct struct))))))
- (unless (eobp)
- (forward-line 1)))
+ (setq struct (nconc nstruct struct)))))))
+ (unless (eobp)
+ (forward-line 1))
(nreverse struct)))
(defun mml-parse-singlepart-with-multiple-charsets (orig-tag beg end)
@@ -108,7 +108,7 @@
(push (append
orig-tag
(list (cons 'contents
- (buffer-substring
+ (buffer-substring-no-properties
beg (or paragraph newline space (point))))))
struct)
(setq beg (or paragraph newline space (point))
@@ -131,7 +131,8 @@
(unless (= beg (point))
(push (append orig-tag
(list (cons 'contents
- (buffer-substring beg (point)))))
+ (buffer-substring-no-properties
+ beg (point)))))
struct))
struct)))
@@ -139,12 +140,15 @@
"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))))
+ (setq name (buffer-substring-no-properties
+ (point) (progn (forward-sexp 1) (point))))
(skip-chars-forward " \t\n")
(while (not (looking-at ">"))
- (setq elem (buffer-substring (point) (progn (forward-sexp 1) (point))))
+ (setq elem (buffer-substring-no-properties
+ (point) (progn (forward-sexp 1) (point))))
(skip-chars-forward "= \t\n")
- (setq val (buffer-substring (point) (progn (forward-sexp 1) (point))))
+ (setq val (buffer-substring-no-properties
+ (point) (progn (forward-sexp 1) (point))))
(when (string-match "^\"\\(.*\\)\"$" val)
(setq val (match-string 1 val)))
(push (cons (intern elem) val) contents)
@@ -161,13 +165,13 @@
(if (re-search-forward
"<#\\(/\\)?\\(multipart\\|part\\|external\\)." nil t)
(prog1
- (buffer-substring beg (match-beginning 0))
+ (buffer-substring-no-properties beg (match-beginning 0))
(if (or (not (match-beginning 1))
(equal (match-string 2) "multipart"))
(goto-char (match-beginning 0))
(when (looking-at "[ \t]*\n")
(forward-line 1))))
- (buffer-substring beg (goto-char (point-max))))))
+ (buffer-substring-no-properties beg (goto-char (point-max))))))
(defvar mml-boundary nil)
(defvar mml-base-boundary "=-=-=")
@@ -210,7 +214,7 @@
(setq coded (buffer-string)))
(mm-with-unibyte-buffer
(if (setq filename (cdr (assq 'filename cont)))
- (insert-file-contents-literally filename)
+ (insert-file-contents filename)
(insert (cdr (assq 'contents cont))))
(setq encoding (mm-encode-buffer type)
coded (buffer-string))))
@@ -308,7 +312,8 @@
(mml-parameter-string
cont '(name access-type expiration size permission)))
(not (equal type "text/plain")))
- (when (listp charset)
+ (when (consp charset)
+ (debug)
(error
"Can't encode a part with several charsets. Insert a <#part>."))
(insert "Content-Type: " type)
View
6 texi/gnus.texi
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Pterodactyl Gnus 0.60 Manual
+@settitle Pterodactyl Gnus 0.61 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Pterodactyl Gnus 0.60 Manual
+@title Pterodactyl Gnus 0.61 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
spool or your mbox file. All at the same time, if you want to push your
luck.
-This manual corresponds to Pterodactyl Gnus 0.60.
+This manual corresponds to Pterodactyl Gnus 0.61.
@end ifinfo
View
6 texi/message.texi
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Pterodactyl Message 0.60 Manual
+@settitle Pterodactyl Message 0.61 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Pterodactyl Message 0.60 Manual
+@title Pterodactyl Message 0.61 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -83,7 +83,7 @@ Message mode buffers.
* Key Index:: List of Message mode keys.
@end menu
-This manual corresponds to Pterodactyl Message 0.60. Message is
+This manual corresponds to Pterodactyl Message 0.61. Message is
distributed with the Gnus distribution bearing the same version number
as this manual.
Please sign in to comment.
Something went wrong with that request. Please try again.