Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 3a112583bb7bc472b775d47434be7930ce7fc7be 1 parent d59fb6b
Lars Ingebrigtsen larsmagne authored
13 lisp/ChangeLog
View
@@ -1,3 +1,16 @@
+Mon Nov 16 02:00:05 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Pterodactyl Gnus v0.48 is released.
+
+1998-11-15 23:18:56 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * mm-bodies.el (mm-encode-body): Disbabled for nonmule.
+
+ * mm-util.el (mm-find-charset-region): Bogus change for non-Mule.
+
+ * message.el (message-cite-original-without-signature): Ditto.
+ (message-cite-original): Quote parts.
+
Sun Nov 15 22:01:55 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.47 is released.
2  lisp/gnus.el
View
@@ -254,7 +254,7 @@ is restarted, and sometimes reloaded."
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.47"
+(defconst gnus-version-number "0.48"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
11 lisp/message.el
View
@@ -1812,6 +1812,11 @@ prefix, and don't delete any headers."
(if (listp message-indent-citation-function)
message-indent-citation-function
(list message-indent-citation-function)))))
+ (goto-char start)
+ ;; Quote parts.
+ (while (re-search-forward "<#/?!*\\(multi\\|part\\)>" end t)
+ (goto-char (match-beginning 1))
+ (insert "!"))
(goto-char end)
(when (re-search-backward "^-- $" start t)
;; Also peel off any blank lines before the signature.
@@ -1835,12 +1840,18 @@ prefix, and don't delete any headers."
mail-citation-hook)
(run-hooks 'mail-citation-hook)
(let ((start (point))
+ (end (mark t))
(functions
(when message-indent-citation-function
(if (listp message-indent-citation-function)
message-indent-citation-function
(list message-indent-citation-function)))))
(goto-char start)
+ ;; Quote parts.
+ (while (re-search-forward "<#/?!*\\(multi\\|part\\)>" end t)
+ (goto-char (match-beginning 1))
+ (insert "!"))
+ (goto-char start)
(while functions
(funcall (pop functions)))
(when message-citation-line-function
77 lisp/mm-bodies.el
View
@@ -40,46 +40,49 @@ If there is more than one non-ASCII MULE charset, then list of found
MULE charsets are returned.
If successful, the MIME charset is returned.
If no encoding was done, nil is returned."
- (save-excursion
- (goto-char (point-min))
- (let ((charsets
- (delq 'ascii (mm-find-charset-region (point-min) (point-max))))
- charset)
- (cond
- ;; No encoding.
- ((null charsets)
- nil)
- ;; Too many charsets.
- ((> (length charsets) 1)
- charsets)
- ;; We encode.
- (t
- (let ((mime-charset
- (mm-mime-charset (car charsets) (point-min) (point-max)))
- start)
- (when (or t
- ;; We always decode.
- (not (mm-coding-system-equal
- mime-charset buffer-file-coding-system)))
- (while (not (eobp))
- (if (eq (char-charset (char-after)) 'ascii)
- (when start
- (save-restriction
- (narrow-to-region start (point))
- (mm-encode-coding-region start (point) mime-charset)
- (goto-char (point-max)))
- (setq start nil))
- (unless start
- (setq start (point))))
- (forward-char 1))
- (when start
- (mm-encode-coding-region start (point) mime-charset)
- (setq start nil)))
- mime-charset))))))
+ (if (not (featurep 'mule))
+ 'iso-8859-1
+ (save-excursion
+ (goto-char (point-min))
+ (let ((charsets
+ (delq 'ascii (mm-find-charset-region (point-min) (point-max))))
+ charset)
+ (cond
+ ;; No encoding.
+ ((null charsets)
+ nil)
+ ;; Too many charsets.
+ ((> (length charsets) 1)
+ charsets)
+ ;; We encode.
+ (t
+ (let ((mime-charset
+ (mm-mime-charset (car charsets) (point-min) (point-max)))
+ start)
+ (when (or t
+ ;; We always decode.
+ (not (mm-coding-system-equal
+ mime-charset buffer-file-coding-system)))
+ (while (not (eobp))
+ (if (eq (char-charset (char-after)) 'ascii)
+ (when start
+ (save-restriction
+ (narrow-to-region start (point))
+ (mm-encode-coding-region start (point) mime-charset)
+ (goto-char (point-max)))
+ (setq start nil))
+ (unless start
+ (setq start (point))))
+ (forward-char 1))
+ (when start
+ (mm-encode-coding-region start (point) mime-charset)
+ (setq start nil)))
+ mime-charset)))))))
(defun mm-body-encoding ()
"Return the encoding of the current buffer."
- (if (and
+ (if (and
+ (featurep 'mule)
(null (delq 'ascii (find-charset-region (point-min) (point-max))))
;;;!!!The following is necessary because the function
;;;!!!above seems to return the wrong result under Emacs 20.3.
20 lisp/mm-util.el
View
@@ -224,9 +224,21 @@ See also `with-temp-file' and `with-output-to-string'."
(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)
+ (cond
+ ((and (boundp 'enable-multibyte-characters)
+ enable-multibyte-characters)
+ (find-charset-region b e))
+ ((not (boundp 'current-language-environment))
+ (save-excursion
+ (save-restriction
+ (narrow-to-region b e)
+ (goto-char (point-min))
+ (skip-chars-forward "\0-\177")
+ (if (eobp)
+ '(ascii)
+ ;;;!!!bogus
+ (list 'ascii 'latin-iso8859-1)))))
+ (t
;; We are in a unibyte buffer, so we futz around a bit.
(save-excursion
(save-restriction
@@ -237,7 +249,7 @@ See also `with-temp-file' and `with-output-to-string'."
(skip-chars-forward "\0-\177")
(if (eobp)
'(ascii)
- (list 'ascii (car (last (assq 'charset entry))))))))))
+ (list 'ascii (car (last (assq 'charset entry)))))))))))
(provide 'mm-util)
6 texi/gnus.texi
View
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Pterodactyl Gnus 0.47 Manual
+@settitle Pterodactyl Gnus 0.48 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.47 Manual
+@title Pterodactyl Gnus 0.48 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.47.
+This manual corresponds to Pterodactyl Gnus 0.48.
@end ifinfo
6 texi/message.texi
View
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Pterodactyl Message 0.47 Manual
+@settitle Pterodactyl Message 0.48 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.47 Manual
+@title Pterodactyl Message 0.48 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.47. Message is
+This manual corresponds to Pterodactyl Message 0.48. 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.