1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00

* 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.
This commit is contained in:
Dan Nicolaescu 2007-11-16 16:50:35 +00:00
parent c456960854
commit 9efa445fbe
37 changed files with 303 additions and 236 deletions

View File

@ -1,3 +1,12 @@
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):

View File

@ -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

View File

@ -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.

View File

@ -1,3 +1,83 @@
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):

View File

@ -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
`(

View File

@ -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."

View File

@ -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

View File

@ -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)

View File

@ -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)

View File

@ -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

View File

@ -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"

View File

@ -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)

View File

@ -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.

View File

@ -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")

View File

@ -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

View File

@ -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

View File

@ -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)
(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)
;; 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."

View File

@ -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"

View File

@ -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

View File

@ -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
;;;
(eval-when-compile (defvar mm-uu-yenc-decode-function))
(defun mm-decode-content-transfer-encoding (encoding &optional type)
"Decodes buffer encoded with ENCODING, returning success status.
If TYPE is `text/plain' CRLF->LF translation may occur."

View File

@ -895,7 +895,7 @@ external if displayed external."
;; a vector in Emacs but is a list in XEmacs)
;; requires that it is lexically scoped.
(timer (run-at-time 2.0 nil 'ignore)))
(if (boundp 'itimer-list)
(if (featurep 'xemacs)
(lambda (process state)
(when (eq 'exit (process-status process))
(if (memq timer itimer-list)
@ -1364,34 +1364,35 @@ be determined."
(mm-handle-set-cache handle spec))))))
(defun mm-create-image-xemacs (type)
(cond
((equal type "xbm")
;; xbm images require special handling, since
;; the only way to create glyphs from these
;; (without a ton of work) is to write them
;; out to a file, and then create a file
;; specifier.
(let ((file (mm-make-temp-file
(expand-file-name "emm" mm-tmp-directory)
nil ".xbm")))
(unwind-protect
(progn
(write-region (point-min) (point-max) file)
(make-glyph (list (cons 'x file))))
(ignore-errors
(delete-file file)))))
(t
(make-glyph
(vector
(or (mm-image-type-from-buffer)
(intern type))
:data (buffer-string))))))
(when (featurep 'xemacs)
(cond
((equal type "xbm")
;; xbm images require special handling, since
;; the only way to create glyphs from these
;; (without a ton of work) is to write them
;; out to a file, and then create a file
;; specifier.
(let ((file (mm-make-temp-file
(expand-file-name "emm" mm-tmp-directory)
nil ".xbm")))
(unwind-protect
(progn
(write-region (point-min) (point-max) file)
(make-glyph (list (cons 'x file))))
(ignore-errors
(delete-file file)))))
(t
(make-glyph
(vector
(or (mm-image-type-from-buffer)
(intern type))
:data (buffer-string)))))))
(defun mm-image-fit-p (handle)
"Say whether the image in HANDLE will fit the current window."
(let ((image (mm-get-image handle)))
(or (not image)
(if (fboundp 'glyph-width)
(if (featurep 'xemacs)
;; XEmacs' glyphs can actually tell us about their width, so
;; lets be nice and smart about them.
(or mm-inline-large-images

View File

@ -36,6 +36,8 @@
(require 'timer))
(require 'timer)))
(defvar mm-mime-mule-charset-alist )
(eval-and-compile
(mapc
(lambda (elem)
@ -884,9 +886,10 @@ This affects whether coding conversion should be attempted generally."
(autoload 'latin-unity-massage-name "latin-unity")
(autoload 'latin-unity-maybe-remap "latin-unity")
(autoload 'latin-unity-representations-feasible-region "latin-unity")
(autoload 'latin-unity-representations-present-region "latin-unity")
(defvar latin-unity-coding-systems)
(defvar latin-unity-ucs-list))
(autoload 'latin-unity-representations-present-region "latin-unity"))
(defvar latin-unity-coding-systems)
(defvar latin-unity-ucs-list)
(defun mm-xemacs-find-mime-charset-1 (begin end)
"Determine which MIME charset to use to send region as message.
@ -1440,7 +1443,7 @@ gzip, bzip2, etc. are allowed."
(funcall (symbol-value 'set-auto-coding-function)
nil (- (point-max) (point-min)))
(error nil)))))
((featurep 'file-coding) ;; XEmacs
((and (featurep 'xemacs) (featurep 'file-coding)) ;; XEmacs
(let ((case-fold-search t)
(end (point-at-eol))
codesys start)

View File

@ -305,11 +305,10 @@ apply the face `mm-uu-extract'."
(mm-uu-configure)
(eval-when-compile
(defvar file-name)
(defvar start-point)
(defvar end-point)
(defvar entry))
(defvar file-name)
(defvar start-point)
(defvar end-point)
(defvar entry)
(defun mm-uu-uu-filename ()
(if (looking-at ".+")
@ -375,8 +374,7 @@ apply the face `mm-uu-extract'."
(list mm-dissect-disposition
(cons 'filename file-name))))
(eval-when-compile
(defvar gnus-newsgroup-name))
(defvar gnus-newsgroup-name)
(defun mm-uu-emacs-sources-test ()
(setq file-name (match-string 1))
@ -465,8 +463,7 @@ apply the face `mm-uu-extract'."
(y-or-n-p "Verify pgp signed part? ")
(message ""))))))
(eval-when-compile
(defvar gnus-newsgroup-charset))
(defvar gnus-newsgroup-charset)
(defun mm-uu-pgp-signed-extract-1 (handles ctl)
(let ((buf (mm-uu-copy-to-buffer (point-min) (point-max))))

View File

@ -97,19 +97,20 @@
(delete-region b (+ b 2)))))))
(defun mm-inline-image-xemacs (handle)
(insert "\n\n")
(forward-char -2)
(let ((annot (make-annotation (mm-get-image handle) nil 'text))
buffer-read-only)
(mm-handle-set-undisplayer
handle
`(lambda ()
(let ((b ,(point-marker))
buffer-read-only)
(delete-annotation ,annot)
(delete-region (- b 2) b))))
(set-extent-property annot 'mm t)
(set-extent-property annot 'duplicable t)))
(when (featurep 'xemacs)
(insert "\n\n")
(forward-char -2)
(let ((annot (make-annotation (mm-get-image handle) nil 'text))
buffer-read-only)
(mm-handle-set-undisplayer
handle
`(lambda ()
(let ((b ,(point-marker))
buffer-read-only)
(delete-annotation ,annot)
(delete-region (- b 2) b))))
(set-extent-property annot 'mm t)
(set-extent-property annot 'duplicable t))))
(eval-and-compile
(if (featurep 'xemacs)
@ -568,7 +569,7 @@
;; By default, XEmacs font-lock uses non-duplicable text
;; properties. This code forces all the text properties
;; to be copied along with the text.
(when (fboundp 'extent-list)
(when (featurep 'xemacs)
(map-extents (lambda (ext ignored)
(set-extent-property ext 'duplicable t)
nil)

View File

@ -298,13 +298,13 @@ Whether the passphrase is cached at all is controlled by
(defun mml-smime-openssl-verify-test (handle ctl)
smime-openssl-program)
(eval-and-compile
(autoload 'epg-make-context "epg"))
(defvar epg-user-id-alist)
(defvar epg-digest-algorithm-alist)
(defvar inhibit-redisplay)
(defvar password-cache-expiry)
(eval-when-compile
(defvar epg-user-id-alist)
(defvar epg-digest-algorithm-alist)
(defvar inhibit-redisplay)
(autoload 'epg-make-context "epg")
(autoload 'epg-context-set-armor "epg")
(autoload 'epg-context-set-signers "epg")
(autoload 'epg-context-result-for "epg")
@ -319,10 +319,7 @@ Whether the passphrase is cached at all is controlled by
(autoload 'epg-context-set-passphrase-callback "epg")
(autoload 'epg-configuration "epg-config")
(autoload 'epg-expand-group "epg-config")
(autoload 'epa-select-keys "epa"))
(eval-when-compile
(defvar password-cache-expiry)
(autoload 'epa-select-keys "epa")
(autoload 'password-read "password")
(autoload 'password-cache-add "password")
(autoload 'password-cache-remove "password"))

View File

@ -53,6 +53,7 @@
(defvar message-required-mail-headers)
(defvar message-required-news-headers)
(defvar dnd-protocol-alist)
(defvar mml-dnd-protocol-alist)
(defcustom mml-content-type-parameters
'(name access-type expiration size permission format)
@ -807,9 +808,9 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
(mail-header-encode-parameter
(symbol-name type) value))))))
(eval-when-compile
(defvar ange-ftp-name-format)
(defvar efs-path-regexp))
(defvar ange-ftp-name-format)
(defvar efs-path-regexp)
(defun mml-parse-file-name (path)
(if (if (boundp 'efs-path-regexp)
(string-match efs-path-regexp path)

View File

@ -244,10 +244,9 @@ Whether the passphrase is cached at all is controlled by
;; pgg wrapper
(eval-when-compile
(defvar pgg-default-user-id)
(defvar pgg-errors-buffer)
(defvar pgg-output-buffer))
(defvar pgg-default-user-id)
(defvar pgg-errors-buffer)
(defvar pgg-output-buffer)
(defun mml1991-pgg-sign (cont)
(let ((pgg-text-mode t)
@ -313,11 +312,11 @@ Whether the passphrase is cached at all is controlled by
;; epg wrapper
(eval-and-compile
(autoload 'epg-make-context "epg"))
(defvar epg-user-id-alist)
(defvar password-cache-expiry)
(eval-when-compile
(defvar epg-user-id-alist)
(eval-and-compile
(autoload 'epg-make-context "epg")
(autoload 'epg-passphrase-callback-function "epg")
(autoload 'epa-select-keys "epa")
(autoload 'epg-list-keys "epg")
@ -328,10 +327,7 @@ Whether the passphrase is cached at all is controlled by
(autoload 'epg-sign-string "epg")
(autoload 'epg-encrypt-string "epg")
(autoload 'epg-configuration "epg-config")
(autoload 'epg-expand-group "epg-config"))
(eval-when-compile
(defvar password-cache-expiry)
(autoload 'epg-expand-group "epg-config")
(autoload 'password-read "password")
(autoload 'password-cache-add "password")
(autoload 'password-cache-remove "password"))

View File

@ -173,9 +173,8 @@ Whether the passphrase is cached at all is controlled by
(autoload 'mc-cleanup-recipient-headers "mc-toplev")
(autoload 'mc-sign-generic "mc-toplev"))
(eval-when-compile
(defvar mc-default-scheme)
(defvar mc-schemes))
(defvar mc-default-scheme)
(defvar mc-schemes)
(defvar mml2015-decrypt-function 'mailcrypt-decrypt)
(defvar mml2015-verify-function 'mailcrypt-verify)
@ -707,10 +706,9 @@ Whether the passphrase is cached at all is controlled by
;;; pgg wrapper
(eval-when-compile
(defvar pgg-default-user-id)
(defvar pgg-errors-buffer)
(defvar pgg-output-buffer))
(defvar pgg-default-user-id)
(defvar pgg-errors-buffer)
(defvar pgg-output-buffer)
(eval-and-compile
(autoload 'pgg-decrypt-region "pgg")
@ -945,13 +943,12 @@ Whether the passphrase is cached at all is controlled by
;;; epg wrapper
(eval-and-compile
(autoload 'epg-make-context "epg"))
(defvar epg-user-id-alist)
(defvar epg-digest-algorithm-alist)
(defvar inhibit-redisplay)
(eval-when-compile
(defvar epg-user-id-alist)
(defvar epg-digest-algorithm-alist)
(defvar inhibit-redisplay)
(eval-and-compile
(autoload 'epg-make-context "epg")
(autoload 'epg-context-set-armor "epg")
(autoload 'epg-context-set-textmode "epg")
(autoload 'epg-context-set-signers "epg")
@ -972,8 +969,9 @@ Whether the passphrase is cached at all is controlled by
(autoload 'epg-expand-group "epg-config")
(autoload 'epa-select-keys "epa"))
(defvar password-cache-expiry)
(eval-when-compile
(defvar password-cache-expiry)
(autoload 'password-read "password")
(autoload 'password-cache-add "password")
(autoload 'password-cache-remove "password"))

View File

@ -1085,7 +1085,7 @@ all. This may very well take some time.")
(unless no-active
(nnmail-save-active nndiary-group-alist nndiary-active-file))))))
(eval-when-compile (defvar files))
(defvar files)
(defun nndiary-generate-active-info (dir)
;; Update the active info for this group.
(let* ((group (nnheader-file-to-group

View File

@ -32,6 +32,9 @@
(eval-when-compile (require 'cl))
(defvar nnmail-extra-headers)
(defvar gnus-newsgroup-name)
(defvar nnheader-file-coding-system)
(defvar jka-compr-compression-info-list)
;; Requiring `gnus-util' at compile time creates a circular
;; dependency between nnheader.el and gnus-util.el.
@ -696,7 +699,6 @@ the line could be found."
(erase-buffer))
(current-buffer))
(eval-when-compile (defvar jka-compr-compression-info-list))
(defvar nnheader-numerical-files
(if (boundp 'jka-compr-compression-info-list)
(concat "\\([0-9]+\\)\\("
@ -939,9 +941,8 @@ first. Otherwise, find the newest one, though it may take a time."
(car results)
(car (sort results 'file-newer-than-file-p)))))
(eval-when-compile
(defvar ange-ftp-path-format)
(defvar efs-path-regexp))
(defvar ange-ftp-path-format)
(defvar efs-path-regexp)
(defun nnheader-re-read-dir (path)
"Re-read directory PATH if PATH is on a remote system."
(if (and (fboundp 'efs-re-read-dir) (boundp 'efs-path-regexp))

View File

@ -885,7 +885,7 @@ Unless no-active is non-nil, update the active file too."
(unless no-active
(nnmail-save-active nnml-group-alist nnml-active-file)))))))
(eval-when-compile (defvar files))
(defvar files)
(defun nnml-generate-active-info (dir)
;; Update the active info for this group.
(let ((group (directory-file-name dir))

View File

@ -195,9 +195,8 @@ used to render text. If it is nil, text will simply be folded.")
(deffoo nnrss-close-group (group &optional server)
t)
(eval-when-compile
(defvar mm-text-html-renderer)
(defvar mm-text-html-washer-alist))
(defvar mm-text-html-renderer)
(defvar mm-text-html-washer-alist)
(deffoo nnrss-request-article (article &optional group server buffer)
(setq group (nnrss-decode-group-name group))

View File

@ -36,6 +36,7 @@
;;; Code:
(require 'mail-utils)
(defvar parse-time-months)
(defgroup pop3 nil
"Post Office Protocol."
@ -327,8 +328,6 @@ Return the response string if optional second argument is non-nil."
(forward-char)))
(set-marker end nil))
(eval-when-compile (defvar parse-time-months))
;; Copied from message-make-date.
(defun pop3-make-date (&optional now)
"Make a valid date header.

View File

@ -31,7 +31,7 @@
;;; Code:
(require 'mm-util)
(eval-when-compile (defvar mm-use-ultra-safe-encoding))
(defvar mm-use-ultra-safe-encoding)
;;;###autoload
(defun quoted-printable-decode-region (from to &optional coding-system)

View File

@ -30,8 +30,8 @@
;;; Code:
(eval-when-compile
(require 'cl)
(defvar message-posting-charset))
(require 'cl))
(defvar message-posting-charset)
(require 'qp)
(require 'mm-util)
@ -285,7 +285,6 @@ Should be called narrowed to the head of the message."
;; Fixme: This, and the require below may not be the Right Thing, but
;; should be safe just before release. -- fx 2001-02-08
(eval-when-compile (defvar message-posting-charset))
(defun rfc2047-encodable-p ()
"Return non-nil if any characters in current buffer need encoding in headers.

View File

@ -424,8 +424,7 @@ Any details (stdout and stderr) are left in the buffer specified by
(insert-buffer-substring smime-details-buffer)
nil))
(eval-when-compile
(defvar from))
(defvar from)
(defun smime-decrypt-region (b e keyfile)
"Decrypt S/MIME message in region between B and E with key in KEYFILE.

View File

@ -352,7 +352,7 @@ will display info in the echo area."
(message "Automatic display of crossref information was turned on")))
(defun reftex-start-itimer-once ()
(and reftex-mode
(and (featurep 'xemacs) reftex-mode
(not (itimer-live-p reftex-auto-view-crossref-timer))
(setq reftex-auto-view-crossref-timer
(start-itimer "RefTeX Idle Timer"