changeset 33127:eca95f9d7f05

(base64): Require unconditionally. (message-posting-charset): Defvar when compiling. (rfc2047-encode-message-header, rfc2047-encodable-p): Require message.
author Dave Love <fx@gnu.org>
date Wed, 01 Nov 2000 19:07:36 +0000
parents 30775a7550ec
children 64902dbf6ff9
files lisp/gnus/rfc2047.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/rfc2047.el	Wed Nov 01 19:02:48 2000 +0000
+++ b/lisp/gnus/rfc2047.el	Wed Nov 01 19:07:36 2000 +0000
@@ -24,16 +24,15 @@
 
 ;;; Code:
 
-(eval-and-compile
-  (eval
-   '(unless (fboundp 'base64-decode-string)
-      (require 'base64))))
+(require 'base64)
 
 (require 'qp)
 (require 'mm-util)
 (require 'ietf-drums)
 (require 'mail-prsvr)
 
+(eval-when-compile (defvar message-posting-charset))
+
 (defvar rfc2047-header-encoding-alist
   '(("Newsgroups" . nil)
     ("Message-ID" . nil)
@@ -108,6 +107,7 @@
   "Encode the message header according to `rfc2047-header-encoding-alist'.
 Should be called narrowed to the head of the message."
   (interactive "*")
+  (require 'message)
   (save-excursion
     (goto-char (point-min))
     (let (alist elem method)
@@ -151,6 +151,7 @@
 
 (defun rfc2047-encodable-p (&optional header)
   "Say whether the current (narrowed) buffer contains characters that need encoding in headers."
+  (require 'message)
   (let ((charsets
 	 (mapcar
 	  'mm-mime-charset