From: Lars Magne Ingebrigtsen Date: Tue, 8 Sep 1998 05:09:51 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=5b7237663b85d6d41064a0065eb7c504c6c829d2 *** empty log message *** --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 06e1752b2..b65153b72 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +Tue Sep 8 07:09:28 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.19 is released. + +1998-09-08 04:51:39 Lars Magne Ingebrigtsen + + * 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 * gnus.el: Pterodactyl Gnus v0.18 is released. diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el index 3b85b5736..2c87c3122 100644 --- a/lisp/gnus-draft.el +++ b/lisp/gnus-draft.el @@ -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) diff --git a/lisp/gnus.el b/lisp/gnus.el index 08ee5188d..2bbe10688 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -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) diff --git a/lisp/lpath.el b/lisp/lpath.el index cfee84473..20ad587f5 100644 --- a/lisp/lpath.el +++ b/lisp/lpath.el @@ -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 diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el index c74994e2a..1b208d225 100644 --- a/lisp/mm-bodies.el +++ b/lisp/mm-bodies.el @@ -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. diff --git a/lisp/mm-util.el b/lisp/mm-util.el index b36c62bcc..838a5c89f 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -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 diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el index 907a08403..c96aeb27e 100644 --- a/lisp/rfc2047.el +++ b/lisp/rfc2047.el @@ -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)) diff --git a/texi/gnus.texi b/texi/gnus.texi index b5e10b167..436d3f931 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -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 diff --git a/texi/message.texi b/texi/message.texi index e81be3347..157435912 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -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.