From 1c33719f148d5b526f8f00d1514c39080e314a48 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Wed, 1 Nov 2000 19:07:36 +0000
Subject: [PATCH] (base64): Require unconditionally. (message-posting-charset):
 Defvar when compiling. (rfc2047-encode-message-header, rfc2047-encodable-p):
 Require message.

---
 lisp/gnus/rfc2047.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index 0b10d04d44d..793ab6b1210 100644
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -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 @@ Valid encodings are nil, `Q' and `B'.")
   "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 @@ Should be called narrowed to the head of the message."
 
 (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
-- 
2.39.5