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 5b7237663b85d6d41064a0065eb7c504c6c829d2 1 parent 829f1a0
Lars Ingebrigtsen larsmagne authored
12 lisp/ChangeLog
View
@@ -1,3 +1,15 @@
+Tue Sep 8 07:09:28 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Pterodactyl Gnus v0.19 is released.
+
+1998-09-08 04:51:39 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * base64.el (base64-encode-region): Accept no-line-break.
+
+ * mm-util.el (mm-mime-charset): New function.
+
+ * gnus-draft.el (gnus-draft-edit-message): Delete article.
+
Tue Sep 8 04:29:23 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.18 is released.
2  lisp/gnus-draft.el
View
@@ -95,6 +95,8 @@
(let ((article (gnus-summary-article-number)))
(gnus-summary-mark-as-read article gnus-canceled-mark)
(gnus-draft-setup article gnus-newsgroup-name)
+ (let ((gnus-verbose-backends nil))
+ (gnus-request-expire-articles (list article) gnus-newsgroup-name t))
(push
`((lambda ()
(when (gnus-buffer-exists-p ,gnus-summary-buffer)
2  lisp/gnus.el
View
@@ -250,7 +250,7 @@ is restarted, and sometimes reloaded."
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.18"
+(defconst gnus-version-number "0.19"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
4 lisp/lpath.el
View
@@ -34,7 +34,9 @@
set-buffer-multibyte
find-non-ascii-charset-region char-charset
mule-write-region-no-coding-system
- find-charset-region base64-decode-string))
+ find-charset-region base64-decode-string
+ find-coding-systems-region get-charset-property
+ coding-system-get))
(maybe-bind '(global-face-data
mark-active transient-mark-mode mouse-selection-click-count
mouse-selection-click-count-buffer buffer-display-table
10 lisp/mm-bodies.el
View
@@ -51,14 +51,8 @@ If no encoding was done, nil is returned."
charsets)
;; We encode.
(t
- (let ((mime-charset
- (or
- (coding-system-get
- (get-charset-property (car charsets) 'prefered-coding-system)
- 'mime-charset)
- (car (memq (car charsets)
- (find-coding-systems-region
- (point-min) (point-max))))))
+ (let ((mime-charset
+ (mm-mime-charset (car charsets) (point-min) (point-max)))
start)
(when (or t
;; We always decode.
11 lisp/mm-util.el
View
@@ -185,6 +185,17 @@ used as the line break code type of the coding system."
(when (string-match "charset *= *\"? *\\([-0-9a-zA-Z_]+\\)\"? *$" header)
(intern (downcase (match-string 1 header)))))
+
+(defun mm-mime-charset (charset b e)
+ (if (fboundp 'coding-system-get)
+ (or
+ (coding-system-get
+ (get-charset-property charset 'prefered-coding-system)
+ 'mime-charset)
+ (car (memq charset (find-coding-systems-region
+ (point-min) (point-max)))))
+ (mm-mule-charset-to-mime-charset charset)))
+
(provide 'mm-util)
;;; mm-util.el ends here
6 lisp/rfc2047.el
View
@@ -181,11 +181,7 @@ Should be called narrowed to the head of the message."
(defun rfc2047-encode (b e charset)
"Encode the word in the region with CHARSET."
(let* ((mime-charset
- (or
- (coding-system-get
- (get-charset-property charset 'prefered-coding-system)
- 'mime-charset)
- (car (memq charset (find-coding-systems-region b e)))))
+ (mm-mime-charset charset b e))
(encoding (or (cdr (assq mime-charset
rfc2047-charset-encoding-alist))
'B))
6 texi/gnus.texi
View
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Pterodactyl Gnus 0.18 Manual
+@settitle Pterodactyl Gnus 0.19 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.18 Manual
+@title Pterodactyl Gnus 0.19 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.18.
+This manual corresponds to Pterodactyl Gnus 0.19.
@end ifinfo
6 texi/message.texi
View
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Pterodactyl Message 0.18 Manual
+@settitle Pterodactyl Message 0.19 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.18 Manual
+@title Pterodactyl Message 0.19 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.18. Message is
+This manual corresponds to Pterodactyl Message 0.19. Message is
distributed with the Gnus distribution bearing the same version number
as this manual has.
Please sign in to comment.
Something went wrong with that request. Please try again.