Commit 9efa445f authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* smime.el (from):

* rfc2047.el (message-posting-charset):
* qp.el (mm-use-ultra-safe-encoding):
* pop3.el (parse-time-months):
* nnrss.el (mm-text-html-renderer, mm-text-html-washer-alist):
* nnml.el (files):
* nnheader.el (gnus-newsgroup-name, nnheader-file-coding-system)
(jka-compr-compression-info-list, ange-ftp-path-format)
(efs-path-regexp):
* nndiary.el (files):
* mml2015.el (mc-default-scheme, mc-schemes, pgg-default-user-id)
(pgg-errors-buffer, pgg-output-buffer, epg-user-id-alist)
(epg-digest-algorithm-alist, inhibit-redisplay)
(password-cache-expiry):
* mml1991.el (pgg-default-user-id, pgg-errors-buffer)
(pgg-output-buffer, password-cache-expiry):
* mml.el (mml-dnd-protocol-alist, ange-ftp-name-format)
(efs-path-regexp):
* mml-smime.el (epg-user-id-alist, epg-digest-algorithm-alist)
(inhibit-redisplay):
* mm-uu.el (file-name, start-point, end-point, entry)
(gnus-newsgroup-name, gnus-newsgroup-charset):
* mm-util.el (mm-mime-mule-charset-alist, latin-unity-coding-systems)
(latin-unity-ucs-list):
* mm-bodies.el (mm-uu-yenc-decode-function, mm-uu-decode-function)
(mm-uu-binhex-decode-function):
* message.el (gnus-message-group-art, gnus-list-identifiers, )
(rmail-enable-mime-composing, gnus-local-organization)
(gnus-post-method, gnus-select-method, gnus-active-hashtb)
(gnus-read-active-file, facemenu-add-face-function)
(facemenu-remove-face-function, gnus-article-decoded-p)
(tool-bar-mode):
* mail-source.el (display-time-mail-function):
* gnus-util.el (nnmail-pathname-coding-system)
(nnmail-active-file-coding-system, gnus-emphasize-whitespace-regexp)
(gnus-original-article-buffer, gnus-user-agent)
(rmail-default-rmail-file, mm-text-coding-system, tool-bar-mode)
(xemacs-codename, sxemacs-codename, emacs-program-version):
* gnus-sum.el (tool-bar-mode, gnus-tmp-header, number):
* gnus-start.el (gnus-agent-covered-methods)
(gnus-agent-file-loading-local, gnus-agent-file-loading-cache)
(gnus-current-headers, gnus-thread-indent-array, gnus-newsgroup-name)
(gnus-newsgroup-headers, gnus-group-list-mode)
(gnus-group-mark-positions, gnus-newsgroup-data)
(gnus-newsgroup-unreads, nnoo-state-alist)
(gnus-current-select-method, mail-sources)
(nnmail-scan-directory-mail-source-once, nnmail-split-history)
(nnmail-spool-file, gnus-cache-active-hashtb):
* gnus-mh.el (mh-lib-progs):
* gnus-ems.el (gnus-tmp-unread, gnus-tmp-replied)
(gnus-tmp-score-char, gnus-tmp-indentation, gnus-tmp-opening-bracket)
(gnus-tmp-lines, gnus-tmp-name, gnus-tmp-closing-bracket)
(gnus-tmp-subject-or-nil, gnus-check-before-posting, gnus-mouse-face)
(gnus-group-buffer):
* gnus-cite.el (font-lock-defaults-computed, font-lock-keywords)
(font-lock-set-defaults):
* gnus-art.el (tool-bar-map, w3m-minor-mode-map)
(gnus-face-properties-alist, charset, gnus-summary-article-menu)
(gnus-summary-post-menu, total-parts, type, condition, length):
* gnus-agent.el (gnus-agent-read-agentview):
* flow-fill.el (show-trailing-whitespace):
* gnus-group.el (tool-bar-mode, nnrss-group-alist): Remove unnecessary
eval-and-compile wrappers for byte compiler pacifiers.

* mm-view.el (mm-inline-image-xemacs): Only do something for XEmacs.
(mm-display-inline-fontify): Check for featurep 'xemacs not
extent-list.

* mm-decode.el (mm-display-external): Check for featurep 'xemacs not
itimer-list.
(mm-create-image-xemacs): Only do something for XEmacs.
(mm-image-fit-p): Check for featurep 'xemacs not glyph-width.

* mm-util.el (mm-find-buffer-file-coding-system): Add check for XEmacs.

* gnus-registry.el (gnus-adaptive-word-syntax-table):
* gnus-fun.el (gnus-face-properties-alist): Pacify byte compiler.

* textmodes/reftex-dcr.el (reftex-start-itimer-once): Add check
for XEmacs.

* calc/calc-menu.el (calc-mode-map): Pacify byte compiler.

* doc-view.el (doc-view-resolution): Add missing :group.
parent c4569608
2007-11-16 Dan Nicolaescu <dann@ics.uci.edu>
* textmodes/reftex-dcr.el (reftex-start-itimer-once): Add check
for XEmacs.
* calc/calc-menu.el (calc-mode-map): Pacify byte compiler.
* doc-view.el (doc-view-resolution): Add missing :group.
2007-11-16 Juanma Barranquero <lekktu@gmail.com>
* subr.el (make-variable-frame-local):
......
......@@ -1159,6 +1159,8 @@
(Info-goto-node "Help Commands"))])
"Menu for Calc's help functions.")
(defvar calc-mode-map)
(easy-menu-define
calc-menu
calc-mode-map
......
......@@ -163,7 +163,8 @@
(defcustom doc-view-resolution 100
"Dots per inch resolution used to render the documents.
Higher values result in larger images."
:type 'number)
:type 'number
:group 'doc-view)
(defcustom doc-view-dvipdfm-program (executable-find "dvipdfm")
"Program to convert DVI files to PDF.
......
2007-11-16 Dan Nicolaescu <dann@ics.uci.edu>
* smime.el (from):
* rfc2047.el (message-posting-charset):
* qp.el (mm-use-ultra-safe-encoding):
* pop3.el (parse-time-months):
* nnrss.el (mm-text-html-renderer, mm-text-html-washer-alist):
* nnml.el (files):
* nnheader.el (gnus-newsgroup-name, nnheader-file-coding-system)
(jka-compr-compression-info-list, ange-ftp-path-format)
(efs-path-regexp):
* nndiary.el (files):
* mml2015.el (mc-default-scheme, mc-schemes, pgg-default-user-id)
(pgg-errors-buffer, pgg-output-buffer, epg-user-id-alist)
(epg-digest-algorithm-alist, inhibit-redisplay)
(password-cache-expiry):
* mml1991.el (pgg-default-user-id, pgg-errors-buffer)
(pgg-output-buffer, password-cache-expiry):
* mml.el (mml-dnd-protocol-alist, ange-ftp-name-format)
(efs-path-regexp):
* mml-smime.el (epg-user-id-alist, epg-digest-algorithm-alist)
(inhibit-redisplay):
* mm-uu.el (file-name, start-point, end-point, entry)
(gnus-newsgroup-name, gnus-newsgroup-charset):
* mm-util.el (mm-mime-mule-charset-alist, latin-unity-coding-systems)
(latin-unity-ucs-list):
* mm-bodies.el (mm-uu-yenc-decode-function, mm-uu-decode-function)
(mm-uu-binhex-decode-function):
* message.el (gnus-message-group-art, gnus-list-identifiers, )
(rmail-enable-mime-composing, gnus-local-organization)
(gnus-post-method, gnus-select-method, gnus-active-hashtb)
(gnus-read-active-file, facemenu-add-face-function)
(facemenu-remove-face-function, gnus-article-decoded-p)
(tool-bar-mode):
* mail-source.el (display-time-mail-function):
* gnus-util.el (nnmail-pathname-coding-system)
(nnmail-active-file-coding-system, gnus-emphasize-whitespace-regexp)
(gnus-original-article-buffer, gnus-user-agent)
(rmail-default-rmail-file, mm-text-coding-system, tool-bar-mode)
(xemacs-codename, sxemacs-codename, emacs-program-version):
* gnus-sum.el (tool-bar-mode, gnus-tmp-header, number):
* gnus-start.el (gnus-agent-covered-methods)
(gnus-agent-file-loading-local, gnus-agent-file-loading-cache)
(gnus-current-headers, gnus-thread-indent-array, gnus-newsgroup-name)
(gnus-newsgroup-headers, gnus-group-list-mode)
(gnus-group-mark-positions, gnus-newsgroup-data)
(gnus-newsgroup-unreads, nnoo-state-alist)
(gnus-current-select-method, mail-sources)
(nnmail-scan-directory-mail-source-once, nnmail-split-history)
(nnmail-spool-file, gnus-cache-active-hashtb):
* gnus-mh.el (mh-lib-progs):
* gnus-ems.el (gnus-tmp-unread, gnus-tmp-replied)
(gnus-tmp-score-char, gnus-tmp-indentation, gnus-tmp-opening-bracket)
(gnus-tmp-lines, gnus-tmp-name, gnus-tmp-closing-bracket)
(gnus-tmp-subject-or-nil, gnus-check-before-posting, gnus-mouse-face)
(gnus-group-buffer):
* gnus-cite.el (font-lock-defaults-computed, font-lock-keywords)
(font-lock-set-defaults):
* gnus-art.el (tool-bar-map, w3m-minor-mode-map)
(gnus-face-properties-alist, charset, gnus-summary-article-menu)
(gnus-summary-post-menu, total-parts, type, condition, length):
* gnus-agent.el (gnus-agent-read-agentview):
* flow-fill.el (show-trailing-whitespace):
* gnus-group.el (tool-bar-mode, nnrss-group-alist): Remove unnecessary
eval-and-compile wrappers for byte compiler pacifiers.
* mm-view.el (mm-inline-image-xemacs): Only do something for XEmacs.
(mm-display-inline-fontify): Check for featurep 'xemacs not
extent-list.
* mm-decode.el (mm-display-external): Check for featurep 'xemacs not
itimer-list.
(mm-create-image-xemacs): Only do something for XEmacs.
(mm-image-fit-p): Check for featurep 'xemacs not glyph-width.
* mm-util.el (mm-find-buffer-file-coding-system): Add check for XEmacs.
* gnus-registry.el (gnus-adaptive-word-syntax-table):
* gnus-fun.el (gnus-face-properties-alist): Pacify byte compiler.
2007-11-15 Juanma Barranquero <lekktu@gmail.com>
* nnimap.el (nnimap-split-download-body):
......
......@@ -154,8 +154,7 @@ RFC 2646 suggests 66 characters for readability."
;; Test vectors.
(eval-when-compile
(defvar show-trailing-whitespace))
(defvar show-trailing-whitespace)
(defvar fill-flowed-encode-tests
`(
......
......@@ -2104,8 +2104,7 @@ doesn't exist, to valid the overview buffer."
;; Keeps the compiler from warning about the free variable in
;; gnus-agent-read-agentview.
(eval-when-compile
(defvar gnus-agent-read-agentview))
(defvar gnus-agent-read-agentview)
(defun gnus-agent-load-alist (group)
"Load the article-state alist for GROUP."
......
......@@ -28,9 +28,9 @@
;;; Code:
(eval-when-compile
(require 'cl)
(defvar tool-bar-map)
(defvar w3m-minor-mode-map))
(require 'cl))
(defvar tool-bar-map)
(defvar w3m-minor-mode-map)
(require 'gnus)
;; Avoid the "Recursive load suspected" error in Emacs 21.1.
......@@ -2332,8 +2332,7 @@ long lines iff arg is positive."
(forward-line 1)
(point))))))
(eval-when-compile
(defvar gnus-face-properties-alist))
(defvar gnus-face-properties-alist)
(defun article-display-face ()
"Display any Face headers in the header."
......@@ -2726,7 +2725,7 @@ charset defined in `gnus-summary-show-article-charset-alist' is used."
;; Put the mark meaning this part was rendered by emacs-w3m.
'mm-inline-text-html-with-w3m t))))
(eval-when-compile (defvar charset)) ;; Bound by `article-wash-html'.
(defvar charset) ;; Bound by `article-wash-html'.
(defun gnus-article-wash-html-with-w3m-standalone ()
"Wash the current buffer with w3m."
......@@ -3529,9 +3528,8 @@ This format is defined by the `gnus-article-time-format' variable."
gnus-newsgroup-name 'highlight-words t)))
gnus-emphasis-alist)))))
(eval-when-compile
(defvar gnus-summary-article-menu)
(defvar gnus-summary-post-menu))
(defvar gnus-summary-article-menu)
(defvar gnus-summary-post-menu)
;;; Saving functions.
......@@ -7903,12 +7901,11 @@ For example:
(funcall (cadr elem)))))))
;; Dynamic variables.
(eval-when-compile
(defvar part-number)
(defvar total-parts)
(defvar type)
(defvar condition)
(defvar length))
(defvar part-number)
(defvar total-parts)
(defvar type)
(defvar condition)
(defvar length)
(defun gnus-treat-predicate (val)
(cond
......
......@@ -1170,10 +1170,9 @@ Returns nil if there is no such line before LIMIT, t otherwise."
(setq count (1+ count)))))) ;;
"Keywords for highlighting different levels of message citations.")
(eval-when-compile
(defvar font-lock-defaults-computed)
(defvar font-lock-keywords)
(defvar font-lock-set-defaults))
(defvar font-lock-defaults-computed)
(defvar font-lock-keywords)
(defvar font-lock-set-defaults)
(eval-and-compile
(unless (featurep 'xemacs)
......
......@@ -949,20 +949,18 @@ articles in the thread.
(gnus-score-set 'touched '(t) alist))
(bury-buffer))
(eval-when-compile
(defvar category-fields nil)
(defvar gnus-agent-cat-name)
(defvar gnus-agent-cat-score-file)
(defvar gnus-agent-cat-length-when-short)
(defvar gnus-agent-cat-length-when-long)
(defvar gnus-agent-cat-low-score)
(defvar gnus-agent-cat-high-score)
(defvar gnus-agent-cat-enable-expiration)
(defvar gnus-agent-cat-days-until-old)
(defvar gnus-agent-cat-predicate)
(defvar gnus-agent-cat-groups)
(defvar gnus-agent-cat-enable-undownloaded-faces)
)
(defvar category-fields nil)
(defvar gnus-agent-cat-name)
(defvar gnus-agent-cat-score-file)
(defvar gnus-agent-cat-length-when-short)
(defvar gnus-agent-cat-length-when-long)
(defvar gnus-agent-cat-low-score)
(defvar gnus-agent-cat-high-score)
(defvar gnus-agent-cat-enable-expiration)
(defvar gnus-agent-cat-days-until-old)
(defvar gnus-agent-cat-predicate)
(defvar gnus-agent-cat-groups)
(defvar gnus-agent-cat-enable-undownloaded-faces)
(defun gnus-trim-whitespace (s)
(when (string-match "\\`[ \n\t]+" s)
......
......@@ -74,19 +74,18 @@
(defvar gnus-mouse-face-prop 'mouse-face
"Property used for highlighting mouse regions.")))
(eval-when-compile
(defvar gnus-tmp-unread)
(defvar gnus-tmp-replied)
(defvar gnus-tmp-score-char)
(defvar gnus-tmp-indentation)
(defvar gnus-tmp-opening-bracket)
(defvar gnus-tmp-lines)
(defvar gnus-tmp-name)
(defvar gnus-tmp-closing-bracket)
(defvar gnus-tmp-subject-or-nil)
(defvar gnus-check-before-posting)
(defvar gnus-mouse-face)
(defvar gnus-group-buffer))
(defvar gnus-tmp-unread)
(defvar gnus-tmp-replied)
(defvar gnus-tmp-score-char)
(defvar gnus-tmp-indentation)
(defvar gnus-tmp-opening-bracket)
(defvar gnus-tmp-lines)
(defvar gnus-tmp-name)
(defvar gnus-tmp-closing-bracket)
(defvar gnus-tmp-subject-or-nil)
(defvar gnus-check-before-posting)
(defvar gnus-mouse-face)
(defvar gnus-group-buffer)
(defun gnus-ems-redefine ()
(cond
......
......@@ -34,6 +34,8 @@
(require 'gnus-util)
(require 'gnus)
(defvar gnus-face-properties-alist)
(defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory)
"*Directory where X-Face PBM files are stored."
:version "22.1"
......
......@@ -28,8 +28,8 @@
;;; Code:
(eval-when-compile
(require 'cl)
(defvar tool-bar-mode))
(require 'cl))
(defvar tool-bar-mode)
(require 'gnus)
(require 'gnus-start)
......@@ -2875,8 +2875,8 @@ If SOLID (the prefix), create a solid group."
(cons (current-buffer)
(if (eq major-mode 'gnus-summary-mode) 'summary 'group))))))
(defvar nnrss-group-alist)
(eval-when-compile
(defvar nnrss-group-alist)
(defun nnrss-discover-feed (arg))
(defun nnrss-save-server-data (arg)))
(defun gnus-group-make-rss-group (&optional url)
......
......@@ -41,8 +41,7 @@
(require 'gnus-msg)
(require 'gnus-sum)
(eval-when-compile
(defvar mh-lib-progs))
(defvar mh-lib-progs)
(defun gnus-summary-save-article-folder (&optional arg)
"Append the current article to an mh folder.
......
......@@ -63,6 +63,8 @@
(require 'gnus-util)
(require 'nnmail)
(defvar gnus-adaptive-word-syntax-table)
(defvar gnus-registry-dirty t
"Boolean set to t when the registry is modified")
......
......@@ -39,11 +39,11 @@
(autoload 'gnus-agent-possibly-alter-active "gnus-agent")
(eval-when-compile
(require 'cl)
(require 'cl))
(defvar gnus-agent-covered-methods nil)
(defvar gnus-agent-file-loading-local nil)
(defvar gnus-agent-file-loading-cache nil))
(defvar gnus-agent-covered-methods)
(defvar gnus-agent-file-loading-local)
(defvar gnus-agent-file-loading-cache)
(defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc")
"Your `.newsrc' file.
......@@ -650,21 +650,20 @@ the first newsgroup."
;;; General various misc type functions.
;; Silence byte-compiler.
(eval-when-compile
(defvar gnus-current-headers)
(defvar gnus-thread-indent-array)
(defvar gnus-newsgroup-name)
(defvar gnus-newsgroup-headers)
(defvar gnus-group-list-mode)
(defvar gnus-group-mark-positions)
(defvar gnus-newsgroup-data)
(defvar gnus-newsgroup-unreads)
(defvar nnoo-state-alist)
(defvar gnus-current-select-method)
(defvar mail-sources)
(defvar nnmail-scan-directory-mail-source-once)
(defvar nnmail-split-history)
(defvar nnmail-spool-file))
(defvar gnus-current-headers)
(defvar gnus-thread-indent-array)
(defvar gnus-newsgroup-name)
(defvar gnus-newsgroup-headers)
(defvar gnus-group-list-mode)
(defvar gnus-group-mark-positions)
(defvar gnus-newsgroup-data)
(defvar gnus-newsgroup-unreads)
(defvar nnoo-state-alist)
(defvar gnus-current-select-method)
(defvar mail-sources)
(defvar nnmail-scan-directory-mail-source-once)
(defvar nnmail-split-history)
(defvar nnmail-spool-file)
(defun gnus-close-all-servers ()
"Close all servers."
......@@ -1512,8 +1511,8 @@ newsgroup."
(setq killed (cdr killed)))))
;; We want to inline a function from gnus-cache, so we cheat here:
(defvar gnus-cache-active-hashtb)
(eval-when-compile
(defvar gnus-cache-active-hashtb)
(defun gnus-cache-possibly-alter-active (group active)
"Alter the ACTIVE info for GROUP to reflect the articles in the cache."
(when gnus-cache-active-hashtb
......
......@@ -28,8 +28,10 @@
;;; Code:
(eval-when-compile
(require 'cl)
(defvar tool-bar-mode))
(require 'cl))
(defvar tool-bar-mode)
(defvar gnus-tmp-header)
(require 'gnus)
(require 'gnus-group)
......@@ -4954,7 +4956,6 @@ Unscored articles will be counted as having a score of zero."
(defvar gnus-tmp-root-expunged nil)
(defvar gnus-tmp-dummy-line nil)
(eval-when-compile (defvar gnus-tmp-header))
(defun gnus-extra-header (type &optional header)
"Return the extra header of TYPE."
(or (cdr (assq type (mail-header-extra (or header gnus-tmp-header))))
......@@ -5592,8 +5593,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(gnus-get-predicate display)))
;; Uses the dynamically bound `number' variable.
(eval-when-compile
(defvar number))
(defvar number)
(defun gnus-article-marked-p (type &optional article)
(let ((article (or article number)))
(cond
......
......@@ -36,16 +36,16 @@
;;; Code:
(eval-when-compile
(require 'cl)
;; Fixme: this should be a gnus variable, not nnmail-.
(defvar nnmail-pathname-coding-system)
(defvar nnmail-active-file-coding-system)
;; Inappropriate references to other parts of Gnus.
(defvar gnus-emphasize-whitespace-regexp)
(defvar gnus-original-article-buffer)
(defvar gnus-user-agent)
)
(require 'cl))
;; Fixme: this should be a gnus variable, not nnmail-.
(defvar nnmail-pathname-coding-system)
(defvar nnmail-active-file-coding-system)
;; Inappropriate references to other parts of Gnus.
(defvar gnus-emphasize-whitespace-regexp)
(defvar gnus-original-article-buffer)
(defvar gnus-user-agent)
(require 'time-date)
(require 'netrc)
......@@ -982,9 +982,10 @@ with potentially long computations."
;; version fails halfway, however it provides the rmail-select-summary
;; macro which uses the following functions:
(autoload 'rmail-summary-displayed "rmail")
(autoload 'rmail-maybe-display-summary "rmail")))
(defvar rmail-default-rmail-file)
(defvar mm-text-coding-system))
(autoload 'rmail-maybe-display-summary "rmail"))))
(defvar rmail-default-rmail-file)
(defvar mm-text-coding-system)
(defun gnus-output-to-rmail (filename &optional ask)
"Append the current article to an Rmail file named FILENAME."
......@@ -1551,8 +1552,7 @@ Return nil otherwise."
display))
display)))))
(eval-when-compile
(defvar tool-bar-mode))
(defvar tool-bar-mode)
(defun gnus-tool-bar-update (&rest ignore)
"Update the tool bar."
......@@ -1621,10 +1621,9 @@ predicate on the elements."
(push (pop list1) res)))
(nconc (nreverse res) list1 list2))))
(eval-when-compile
(defvar xemacs-codename)
(defvar sxemacs-codename)
(defvar emacs-program-version))
(defvar xemacs-codename)
(defvar sxemacs-codename)
(defvar emacs-program-version)
(defun gnus-emacs-version ()
"Stringified Emacs version."
......
......@@ -29,8 +29,7 @@
(eval-when-compile
(require 'cl)
(require 'imap)
(eval-when-compile (defvar display-time-mail-function)))
(require 'imap))
(eval-and-compile
(autoload 'pop3-movemail "pop3")
(autoload 'pop3-get-message-count "pop3")
......@@ -39,6 +38,9 @@
(require 'mm-util)
(require 'message) ;; for `message-directory'
(defvar display-time-mail-function)
(defgroup mail-source nil
"The mail-fetching library."
:version "21.1"
......
......@@ -32,9 +32,8 @@
;;; Code:
(eval-when-compile
(require 'cl)
(defvar gnus-message-group-art)
(defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
(require 'cl))
(require 'hashcash)
(require 'canlock)
(require 'mailheader)
......@@ -51,6 +50,9 @@
(require 'rfc822)
(require 'ecomplete)
(defvar gnus-message-group-art)
(defvar gnus-list-identifiers) ; gnus-sum is required where necessary
(defvar rmail-enable-mime-composing)
(defgroup message '((user-mail-address custom-variable)
(user-full-name custom-variable))
......@@ -474,8 +476,7 @@ This is used by `message-kill-buffer'."
:group 'message-buffers
:type 'boolean)
(eval-when-compile
(defvar gnus-local-organization))
(defvar gnus-local-organization)
(defcustom message-user-organization
(or (and (boundp 'gnus-local-organization)
(stringp gnus-local-organization)
......@@ -816,9 +817,8 @@ might set this variable to '(\"-f\" \"you@some.where\")."
:type '(choice (function)
(repeat string)))
(eval-when-compile
(defvar gnus-post-method)
(defvar gnus-select-method))
(defvar gnus-post-method)
(defvar gnus-select-method)
(defcustom message-post-method
(cond ((and (boundp 'gnus-post-method)
(listp gnus-post-method)
......@@ -1640,9 +1640,8 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
(defvar message-inserted-headers nil)
;; Byte-compiler warning
(eval-when-compile
(defvar gnus-active-hashtb)
(defvar gnus-read-active-file))
(defvar gnus-active-hashtb)
(defvar gnus-read-active-file)
;;; Regexp matching the delimiter of messages in UNIX mail format
;;; (UNIX From lines), minus the initial ^. It should be a copy
......@@ -2662,9 +2661,8 @@ Prefixed with two \\[universal-argument]'s, display the PGG manual."
(defvar message-tool-bar-map nil)
(eval-when-compile
(defvar facemenu-add-face-function)
(defvar facemenu-remove-face-function))
(defvar facemenu-add-face-function)
(defvar facemenu-remove-face-function)
;;; Forbidden properties
;;
......@@ -3620,8 +3618,6 @@ Really top post? ")))
(push (buffer-name buffer) buffers))))
(nreverse buffers)))
(eval-when-compile (defvar mail-citation-hook)) ; Compiler directive
(defun message-cite-original-1 (strip-signature)
"Cite an original message.
If STRIP-SIGNATURE is non-nil, strips off the signature from the
......@@ -6873,8 +6869,7 @@ the message."
(setq subject (funcall func subject))))
subject))))
(eval-when-compile
(defvar gnus-article-decoded-p))
(defvar gnus-article-decoded-p)
;;;###autoload
......@@ -7088,8 +7083,6 @@ is for the internal use."
(rmail-msg-restore-non-pruned-header)))
(message-forward-make-body forward-buffer))
(eval-when-compile (defvar rmail-enable-mime-composing))
;; Fixme: Should have defcustom.
;;;###autoload
(defun message-insinuate-rmail ()
......@@ -7311,8 +7304,7 @@ which specify the range to operate on."
(mapcar #'delete-overlay (overlays-in (point-min) (point-max)))))
;; Support for toolbar
(eval-when-compile
(defvar tool-bar-mode))
(defvar tool-bar-mode)
;; Note: The :set function in the `message-tool-bar*' variables will only
;; affect _new_ message buffers. We might add a function that walks thru all
......
......@@ -26,14 +26,14 @@
;;; Code:
(eval-when-compile
(defvar mm-uu-decode-function)
(defvar mm-uu-binhex-decode-function))
(require 'mm-util)
(require 'rfc2047)
(require 'mm-encode)
(defvar mm-uu-yenc-decode-function)
(defvar mm-uu-decode-function)
(defvar mm-uu-binhex-decode-function)
;; 8bit treatment gets any char except: 0x32 - 0x7f, LF, TAB, BEL,
;; BS, vertical TAB, form feed, and ^_
;;
......@@ -171,8 +171,6 @@ If no encoding was done, nil is returned."
;;; Functions for decoding