Commit a41db107 authored by Julien Danjou's avatar Julien Danjou Committed by Katsumi Yamaoka
Browse files

Merge changes made in Gnus trunk.

gnus-bookmark.el: Remove useless gnus-bookmark-after-jump-hook.
gnus-group.el: Remove useless gnus-group-icon-cache.
gnus-group.el: Remove useless gnus-ephemeral-group-server.
gnus-picon.el: Remove useless gnus-picon-setup-p.
gnus-sum.el: Remove useless gnus-newsgroup-none-id.
gnus-uu.el: Remove gnus-uu-shar-file-name.
gnus.el: Remove useless gnus-use-generic-from.
gnus.el: Remove obsolete variable gnus-topic-indentation.
mml1991.el: Remove useless mml1991-verbose.
mml2015.el: Remove mc-default-scheme and mc-schemes useless variables.
nnheader.el: Remove useless variables news-reply-yank-message-id and news-reply-yank-from.
rfc1843.el: Remove useless rfc1843-old-gnus-decode-header-function variable.
parent 2452438f
2010-09-25 Julien Danjou <julien@danjou.info> 2010-09-25 Julien Danjou <julien@danjou.info>
   
* rfc1843.el: Remove useless rfc1843-old-gnus-decode-header-function
variables.
* nnheader.el: Remove useless variables news-reply-yank-from and
news-reply-yank-message-id.
* mml2015.el: Remove useless mc-default-scheme and mc-schemes
variables.
* mml1991.el: Remove useless mml1991-verbose.
* gnus.el: Remove useless variable gnus-use-generic-from.
Remove obsolete variable gnus-topic-indentation.
* gnus-uu.el: Remove useless gnus-uu-shar-file-name.
* gnus-sum.el: Remove useless gnus-newsgroup-none-id.
* gnus-picon.el: Remove useless gnus-picon-setup-p variable.
* gnus-group.el: Remove useless gnus-group-icon-cache.
Remove useless gnus-ephemeral-group-server.
* gnus-bookmark.el: Remove useless gnus-bookmark-after-jump-hook.
* mml2015.el: Remove useless mml2015-verbose. * mml2015.el: Remove useless mml2015-verbose.
   
* mml-smime.el: Remove useless mml-smime-verbose. * mml-smime.el: Remove useless mml-smime-verbose.
......
...@@ -156,9 +156,6 @@ The default value is \(author subject date group annotation\)." ...@@ -156,9 +156,6 @@ The default value is \(author subject date group annotation\)."
"The current version of the format used by bookmark files. "The current version of the format used by bookmark files.
You should never need to change this.") You should never need to change this.")
(defvar gnus-bookmark-after-jump-hook nil
"Hook run after `gnus-bookmark-jump' jumps to a Gnus bookmark.")
(defvar gnus-bookmark-alist () (defvar gnus-bookmark-alist ()
"Association list of Gnus bookmarks and their records. "Association list of Gnus bookmarks and their records.
The format of the alist is The format of the alist is
......
...@@ -548,8 +548,6 @@ simple manner.") ...@@ -548,8 +548,6 @@ simple manner.")
(defvar gnus-group-list-mode nil) (defvar gnus-group-list-mode nil)
(defvar gnus-group-icon-cache nil)
(defvar gnus-group-listed-groups nil) (defvar gnus-group-listed-groups nil)
(defvar gnus-group-list-option nil) (defvar gnus-group-list-option nil)
...@@ -2222,8 +2220,6 @@ Returns whether the fetching was successful or not." ...@@ -2222,8 +2220,6 @@ Returns whether the fetching was successful or not."
(other-frame 1)))) (other-frame 1))))
(gnus-fetch-group group)) (gnus-fetch-group group))
(defvar gnus-ephemeral-group-server 0)
(defcustom gnus-large-ephemeral-newsgroup 200 (defcustom gnus-large-ephemeral-newsgroup 200
"The number of articles which indicates a large ephemeral newsgroup. "The number of articles which indicates a large ephemeral newsgroup.
Same as `gnus-large-newsgroup', but only used for ephemeral newsgroups. Same as `gnus-large-newsgroup', but only used for ephemeral newsgroups.
......
...@@ -101,7 +101,6 @@ added right to the textual representation." ...@@ -101,7 +101,6 @@ added right to the textual representation."
;;; Internal variables: ;;; Internal variables:
(defvar gnus-picon-setup-p nil)
(defvar gnus-picon-glyph-alist nil (defvar gnus-picon-glyph-alist nil
"Picon glyphs cache. "Picon glyphs cache.
List of pairs (KEY . GLYPH) where KEY is either a filename or an URL.") List of pairs (KEY . GLYPH) where KEY is either a filename or an URL.")
......
...@@ -6216,8 +6216,6 @@ The resulting hash table is returned, or nil if no Xrefs were found." ...@@ -6216,8 +6216,6 @@ The resulting hash table is returned, or nil if no Xrefs were found."
(unless (gnus-ephemeral-group-p group) (unless (gnus-ephemeral-group-p group)
(gnus-group-update-group group t)))))) (gnus-group-update-group group t))))))
(defvar gnus-newsgroup-none-id 0)
(defun gnus-get-newsgroup-headers (&optional dependencies force-new) (defun gnus-get-newsgroup-headers (&optional dependencies force-new)
(let ((cur nntp-server-buffer) (let ((cur nntp-server-buffer)
(dependencies (dependencies
......
...@@ -335,7 +335,6 @@ didn't work, and overwrite existing files. Otherwise, ask each time." ...@@ -335,7 +335,6 @@ didn't work, and overwrite existing files. Otherwise, ask each time."
(defvar gnus-uu-shar-begin-string "^#! */bin/sh") (defvar gnus-uu-shar-begin-string "^#! */bin/sh")
(defvar gnus-uu-shar-file-name nil)
(defvar gnus-uu-shar-name-marker (defvar gnus-uu-shar-name-marker
"begin 0?[0-7][0-7][0-7][ \t]+\\(\\(\\w\\|[.\\:]\\)*\\b\\)") "begin 0?[0-7][0-7][0-7][ \t]+\\(\\(\\w\\|[.\\:]\\)*\\b\\)")
......
...@@ -2621,9 +2621,6 @@ a string, be sure to use a valid format, see RFC 2616." ...@@ -2621,9 +2621,6 @@ a string, be sure to use a valid format, see RFC 2616."
(defvar gnus-tree-buffer "*Tree*" (defvar gnus-tree-buffer "*Tree*"
"Buffer where Gnus thread trees are displayed.") "Buffer where Gnus thread trees are displayed.")
;; Dummy variable.
(defvar gnus-use-generic-from nil)
;; Variable holding the user answers to all method prompts. ;; Variable holding the user answers to all method prompts.
(defvar gnus-method-history nil) (defvar gnus-method-history nil)
...@@ -2651,8 +2648,6 @@ a string, be sure to use a valid format, see RFC 2616." ...@@ -2651,8 +2648,6 @@ a string, be sure to use a valid format, see RFC 2616."
,(nnheader-concat gnus-cache-directory "active")))) ,(nnheader-concat gnus-cache-directory "active"))))
"List of predefined (convenience) servers.") "List of predefined (convenience) servers.")
(defvar gnus-topic-indentation "") ;; Obsolete variable.
(defconst gnus-article-mark-lists (defconst gnus-article-mark-lists
'((marked . tick) (replied . reply) '((marked . tick) (replied . reply)
(expirable . expire) (killed . killed) (expirable . expire) (killed . killed)
......
...@@ -65,9 +65,6 @@ ...@@ -65,9 +65,6 @@
mml1991-epg-encrypt)) mml1991-epg-encrypt))
"Alist of PGP functions.") "Alist of PGP functions.")
(defvar mml1991-verbose mml-secure-verbose
"If non-nil, ask the user about the current operation more verbosely.")
(defvar mml1991-cache-passphrase mml-secure-cache-passphrase (defvar mml1991-cache-passphrase mml-secure-cache-passphrase
"If t, cache passphrase.") "If t, cache passphrase.")
......
...@@ -188,9 +188,6 @@ Whether the passphrase is cached at all is controlled by ...@@ -188,9 +188,6 @@ Whether the passphrase is cached at all is controlled by
(autoload 'mc-cleanup-recipient-headers "mc-toplev") (autoload 'mc-cleanup-recipient-headers "mc-toplev")
(autoload 'mc-sign-generic "mc-toplev") (autoload 'mc-sign-generic "mc-toplev")
(defvar mc-default-scheme)
(defvar mc-schemes)
(defvar mml2015-decrypt-function 'mailcrypt-decrypt) (defvar mml2015-decrypt-function 'mailcrypt-decrypt)
(defvar mml2015-verify-function 'mailcrypt-verify) (defvar mml2015-verify-function 'mailcrypt-verify)
......
...@@ -570,8 +570,6 @@ the line could be found." ...@@ -570,8 +570,6 @@ the line could be found."
(defvar nntp-server-buffer nil) (defvar nntp-server-buffer nil)
(defvar nntp-process-response nil) (defvar nntp-process-response nil)
(defvar news-reply-yank-from nil)
(defvar news-reply-yank-message-id nil)
(defvar nnheader-callback-function nil) (defvar nnheader-callback-function nil)
......
...@@ -166,7 +166,6 @@ ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc" ...@@ -166,7 +166,6 @@ ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc"
(equal (car ctl) "text/plain")) (equal (car ctl) "text/plain"))
(rfc1843-decode-region (point) (point-max)))))))) (rfc1843-decode-region (point) (point-max))))))))
(defvar rfc1843-old-gnus-decode-header-function nil)
(defvar gnus-decode-header-methods) (defvar gnus-decode-header-methods)
(defvar gnus-decode-encoded-word-methods) (defvar gnus-decode-encoded-word-methods)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment