Changeset 3526 for branches/2.2/lisp/gnus/gnus-start.el

Timestamp:

2004年10月31日 15時41分47秒 (4 years ago)

Author:

miyoshi

Message:

* fringe.c: Sync up with Emacs CVS HEAD.

* xdisp.c (handle_single_display_prop): Merge codes related with
the changes in fringe.c.

* xfaces.c: Update declarations.

* w32console.c: Partially sync up with Emacs CVS HEAD.

* mw32term.c (note_mouse_highlight): Update arguments for
window_from_coordinates().
(glyph_rect): Ditto.
(mw32_message_loop): Ditto.
Merge codes related with the changes in fringe.c.

* lisp.h: Update declarations.

* keymap.c: Update declarations.
(describe_command): Add a dummy argument.
(describe_translation): Ditto.

* keyboard.c (make_lispy_event): Update arguments for
window_from_coordinates().
(make_lispy_movement): Ditto.

* dispextern.h: Update declarations.

* eval.c: Ditto.

* alloc.c (make_string): Sync up with Emacs CVS HEAD.
(make_unibyte_string): Ditto.
(make_multibyte_string): Ditto.

* lisp/cus-load.el: Update.

* lisp/loaddefs.el: Ditto.

* lisp/calc/calc-embed.el: Sync up with Emacs CVS HEAD.

* lisp/calc/calc-graph.el: Ditto.

* lisp/calc/calc-help.el: Ditto.

* lisp/calc/calc-misc.el: Ditto.

* lisp/calc/calc-units.el: Ditto.

* lisp/calc/calc.el: Ditto.

* lisp/calendar/cal-iso.el: Ditto.

* lisp/calendar/cal-menu.el: Ditto.

* lisp/calendar/calendar.el: Ditto.

* lisp/calendar/diary-lib.el: Ditto.

* lisp/calendar/holidays.el: Ditto.

* lisp/calendar/time-date.el: Ditto.

* lisp/emacs-lisp/cl-macs.el: Ditto.

* lisp/emacs-lisp/helper.el: Ditto.

* lisp/emulation/cua-base.el: Ditto.

* lisp/emulation/cua-rect.el: Ditto.

* lisp/eshell/em-pred.el: Ditto.

* lisp/eshell/esh-ext.el: Ditto.

* lisp/gnus/ChangeLog: Ditto.

* lisp/gnus/binhex.el: Ditto.

* lisp/gnus/catchup.xpm: Ditto.

* lisp/gnus/cu-exit.xpm: Ditto.

* lisp/gnus/describe-group.xpm: Ditto.

* lisp/gnus/earcon.el: Ditto.

* lisp/gnus/exit-gnus.xpm: Ditto.

* lisp/gnus/exit-summ.xpm: Ditto.

* lisp/gnus/flow-fill.el: Ditto.

* lisp/gnus/followup.xpm: Ditto.

* lisp/gnus/fuwo.xpm: Ditto.

* lisp/gnus/get-news.xpm: Ditto.

* lisp/gnus/gnntg.xpm: Ditto.

* lisp/gnus/gnus-agent.el: Ditto.

* lisp/gnus/gnus-art.el: Ditto.

* lisp/gnus/gnus-async.el: Ditto.

* lisp/gnus/gnus-audio.el: Ditto.

* lisp/gnus/gnus-bcklg.el: Ditto.

* lisp/gnus/gnus-cache.el: Ditto.

* lisp/gnus/gnus-cite.el: Ditto.

* lisp/gnus/gnus-cus.el: Ditto.

* lisp/gnus/gnus-demon.el: Ditto.

* lisp/gnus/gnus-draft.el: Ditto.

* lisp/gnus/gnus-dup.el: Ditto.

* lisp/gnus/gnus-eform.el: Ditto.

* lisp/gnus/gnus-ems.el: Ditto.

* lisp/gnus/gnus-gl.el: Ditto.

* lisp/gnus/gnus-group.el: Ditto.

* lisp/gnus/gnus-int.el: Ditto.

* lisp/gnus/gnus-kill.el: Ditto.

* lisp/gnus/gnus-logic.el: Ditto.

* lisp/gnus/gnus-mh.el: Ditto.

* lisp/gnus/gnus-ml.el: Ditto.

* lisp/gnus/gnus-mlspl.el: Ditto.

* lisp/gnus/gnus-msg.el: Ditto.

* lisp/gnus/gnus-nocem.el: Ditto.

* lisp/gnus/gnus-range.el: Ditto.

* lisp/gnus/gnus-salt.el: Ditto.

* lisp/gnus/gnus-score.el: Ditto.

* lisp/gnus/gnus-setup.el: Ditto.

* lisp/gnus/gnus-soup.el: Ditto.

* lisp/gnus/gnus-spec.el: Ditto.

* lisp/gnus/gnus-srvr.el: Ditto.

* lisp/gnus/gnus-start.el: Ditto.

* lisp/gnus/gnus-sum.el: Ditto.

* lisp/gnus/gnus-topic.el: Ditto.

* lisp/gnus/gnus-undo.el: Ditto.

* lisp/gnus/gnus-util.el: Ditto.

* lisp/gnus/gnus-uu.el: Ditto.

* lisp/gnus/gnus-vm.el: Ditto.

* lisp/gnus/gnus-win.el: Ditto.

* lisp/gnus/gnus.el: Ditto.

* lisp/gnus/ietf-drums.el: Ditto.

* lisp/gnus/imap.el: Ditto.

* lisp/gnus/kill-group.xpm: Ditto.

* lisp/gnus/mail-parse.el: Ditto.

* lisp/gnus/mail-prsvr.el: Ditto.

* lisp/gnus/mail-reply.xpm: Ditto.

* lisp/gnus/mail-source.el: Ditto.

* lisp/gnus/mailcap.el: Ditto.

* lisp/gnus/message.el: Ditto.

* lisp/gnus/messcompat.el: Ditto.

* lisp/gnus/mm-bodies.el: Ditto.

* lisp/gnus/mm-decode.el: Ditto.

* lisp/gnus/mm-encode.el: Ditto.

* lisp/gnus/mm-partial.el: Ditto.

* lisp/gnus/mm-util.el: Ditto.

* lisp/gnus/mm-uu.el: Ditto.

* lisp/gnus/mm-view.el: Ditto.

* lisp/gnus/mml.el: Ditto.

* lisp/gnus/next-ur.xpm: Ditto.

* lisp/gnus/nnagent.el: Ditto.

* lisp/gnus/nnbabyl.el: Ditto.

* lisp/gnus/nndoc.el: Ditto.

* lisp/gnus/nndraft.el: Ditto.

* lisp/gnus/nneething.el: Ditto.

* lisp/gnus/nnfolder.el: Ditto.

* lisp/gnus/nngateway.el: Ditto.

* lisp/gnus/nnheader.el: Ditto.

* lisp/gnus/nnimap.el: Ditto.

* lisp/gnus/nnkiboze.el: Ditto.

* lisp/gnus/nnlistserv.el: Ditto.

* lisp/gnus/nnmail.el: Ditto.

* lisp/gnus/nnmbox.el: Ditto.

* lisp/gnus/nnmh.el: Ditto.

* lisp/gnus/nnml.el: Ditto.

* lisp/gnus/nnoo.el: Ditto.

* lisp/gnus/nnslashdot.el: Ditto.

* lisp/gnus/nnsoup.el: Ditto.

* lisp/gnus/nnspool.el: Ditto.

* lisp/gnus/nntp.el: Ditto.

* lisp/gnus/nnultimate.el: Ditto.

* lisp/gnus/nnvirtual.el: Ditto.

* lisp/gnus/nnwarchive.el: Ditto.

* lisp/gnus/nnweb.el: Ditto.

* lisp/gnus/pop3.el: Ditto.

* lisp/gnus/post.xpm: Ditto.

* lisp/gnus/prev-ur.xpm: Ditto.

* lisp/gnus/qp.el: Ditto.

* lisp/gnus/reply-wo.xpm: Ditto.

* lisp/gnus/reply.xpm: Ditto.

* lisp/gnus/rfc1843.el: Ditto.

* lisp/gnus/rfc2045.el: Ditto.

* lisp/gnus/rfc2047.el: Ditto.

* lisp/gnus/rfc2231.el: Ditto.

* lisp/gnus/rot13.xpm: Ditto.

* lisp/gnus/save-aif.xpm: Ditto.

* lisp/gnus/save-art.xpm: Ditto.

* lisp/gnus/score-mode.el: Ditto.

* lisp/gnus/subscribe.xpm: Ditto.

* lisp/gnus/unsubscribe.xpm: Ditto.

* lisp/gnus/utf7.el: Ditto.

* lisp/gnus/uu-decode.xpm: Ditto.

* lisp/gnus/uu-post.xpm: Ditto.

* lisp/gnus/uudecode.el: Ditto.

* lisp/gnus/webmail.el: Ditto.

* lisp/international/characters.el: Ditto.

* lisp/language/cyrillic.el: Ditto.

* lisp/language/indian.el: Ditto.

* lisp/mail/mail-extr.el: Ditto.

* lisp/mail/smtpmail.el: Ditto.

* lisp/mail/supercite.el: Ditto.

* lisp/menu-bar.el: Ditto.

* lisp/mh-e/ChangeLog: Ditto.

* lisp/mh-e/mh-alias.el: Ditto.

* lisp/mh-e/mh-comp.el: Ditto.

* lisp/mh-e/mh-customize.el: Ditto.

* lisp/mh-e/mh-e.el: Ditto.

* lisp/mh-e/mh-funcs.el: Ditto.

* lisp/mh-e/mh-gnus.el: Ditto.

* lisp/mh-e/mh-identity.el: Ditto.

* lisp/mh-e/mh-inc.el: Ditto.

* lisp/mh-e/mh-index.el: Ditto.

* lisp/mh-e/mh-junk.el: Ditto.

* lisp/mh-e/mh-loaddefs.el: Ditto.

* lisp/mh-e/mh-mime.el: Ditto.

* lisp/mh-e/mh-pick.el: Ditto.

* lisp/mh-e/mh-seq.el: Ditto.

* lisp/mh-e/mh-speed.el: Ditto.

* lisp/mh-e/mh-utils.el: Ditto.

* lisp/mouse-sel.el: Ditto.

* lisp/mouse.el: Ditto.

* lisp/msb.el: Ditto.

* lisp/mwheel.el: Ditto.

* lisp/newcomment.el: Ditto.

* lisp/novice.el: Ditto.

* lisp/outline.el: Ditto.

* lisp/paren.el: Ditto.

* lisp/paths.el: Ditto.

* lisp/play/animate.el: Ditto.

* lisp/play/blackbox.el: Ditto.

* lisp/play/gamegrid.el: Ditto.

* lisp/play/landmark.el: Ditto.

* lisp/play/morse.el: Ditto.

* lisp/play/zone.el: Ditto.

* lisp/printing.el: Ditto.

* lisp/simple.el: Ditto.

* lisp/term/mac-win.el: Ditto.

* lisp/term/x-win.el: Ditto.

* lisp/term/xterm.el: Ditto.

* lisp/textmodes/bibtex.el: Ditto.

* lisp/textmodes/enriched.el: Ditto.

* lisp/textmodes/flyspell.el: Ditto.

* lisp/textmodes/ispell.el: Ditto.

* lisp/textmodes/paragraphs.el: Ditto.

* lisp/textmodes/reftex-auc.el: Ditto.

* lisp/textmodes/tex-mode.el: Ditto.

* lisp/url/ChangeLog: Ditto.

* lisp/url/url-auth.el: Ditto.

* lisp/url/url-cache.el: Ditto.

* lisp/url/url-cookie.el: Ditto.

* lisp/url/url-dired.el: Ditto.

* lisp/url/url-file.el: Ditto.

* lisp/url/url-ftp.el: Ditto.

* lisp/url/url-gw.el: Ditto.

* lisp/url/url-handlers.el: Ditto.

* lisp/url/url-history.el: Ditto.

* lisp/url/url-https.el: Ditto.

* lisp/url/url-irc.el: Ditto.

* lisp/url/url-ldap.el: Ditto.

* lisp/url/url-mailto.el: Ditto.

* lisp/url/url-methods.el: Ditto.

* lisp/url/url-misc.el: Ditto.

* lisp/url/url-news.el: Ditto.

* lisp/url/url-nfs.el: Ditto.

* lisp/url/url-parse.el: Ditto.

* lisp/url/url-privacy.el: Ditto.

* lisp/url/url-util.el: Ditto.

* lisp/url/url-vars.el: Ditto.

* lisp/url/url.el: Ditto.

* lisp/calendar/icalendar.el: New file.

* lisp/gnus/ChangeLog.2: Ditto.

* lisp/gnus/TODO: Ditto.

* lisp/gnus/bar.xbm: Ditto.

* lisp/gnus/bar.xpm: Ditto.

* lisp/gnus/blink.pbm: Ditto.

* lisp/gnus/blink.xpm: Ditto.

* lisp/gnus/braindamaged.xpm: Ditto.

* lisp/gnus/canlock.el: Ditto.

* lisp/gnus/compface.el: Ditto.

* lisp/gnus/cry.xpm: Ditto.

* lisp/gnus/dead.xpm: Ditto.

* lisp/gnus/deuglify.el: Ditto.

* lisp/gnus/dig.el: Ditto.

* lisp/gnus/dns.el: Ditto.

* lisp/gnus/evil.xpm: Ditto.

* lisp/gnus/forced.xpm: Ditto.

* lisp/gnus/frown.xpm: Ditto.

* lisp/gnus/gnus-delay.el: Ditto.

* lisp/gnus/gnus-diary.el: Ditto.

* lisp/gnus/gnus-dired.el: Ditto.

* lisp/gnus/gnus-fun.el: Ditto.

* lisp/gnus/gnus-picon.el: Ditto.

* lisp/gnus/gnus-pointer.xbm: Ditto.

* lisp/gnus/gnus-pointer.xpm: Ditto.

* lisp/gnus/gnus-registry.el: Ditto.

* lisp/gnus/gnus-sieve.el: Ditto.

* lisp/gnus/important.xpm: Ditto.

* lisp/gnus/indifferent.xpm: Ditto.

* lisp/gnus/mm-extern.el: Ditto.

* lisp/gnus/mm-url.el: Ditto.

* lisp/gnus/mml-sec.el: Ditto.

* lisp/gnus/mml-smime.el: Ditto.

* lisp/gnus/mml1991.el: Ditto.

* lisp/gnus/mml2015.el: Ditto.

* lisp/gnus/nndb.el: Ditto.

* lisp/gnus/nndiary.el: Ditto.

* lisp/gnus/gnus.xbm: Ditto.

* lisp/gnus/gnus.xpm: Ditto.

* lisp/gnus/grin.xpm: Ditto.

* lisp/gnus/hex-util.el: Ditto.

* lisp/gnus/html2text.el: Ditto.

* lisp/gnus/nnmaildir.el: Ditto.

* lisp/gnus/nnnil.el: Ditto.

* lisp/gnus/nnrss.el: Ditto.

* lisp/gnus/nnwfm.el: Ditto.

* lisp/gnus/pgg-def.el: Ditto.

* lisp/gnus/pgg-gpg.el: Ditto.

* lisp/gnus/pgg-parse.el: Ditto.

* lisp/gnus/pgg-pgp.el: Ditto.

* lisp/gnus/pgg-pgp5.el: Ditto.

* lisp/gnus/pgg.el: Ditto.

* lisp/gnus/preview.xbm: Ditto.

* lisp/gnus/preview.xpm: Ditto.

* lisp/gnus/receipt.xpm: Ditto.

* lisp/gnus/reverse-smile.xpm: Ditto.

* lisp/gnus/sad.pbm: Ditto.

* lisp/gnus/sad.xpm: Ditto.

* lisp/gnus/sha1.el: Ditto.

* lisp/gnus/sieve-manage.el: Ditto.

* lisp/gnus/sieve-mode.el: Ditto.

* lisp/gnus/sieve.el: Ditto.

* lisp/gnus/smile.xpm: Ditto.

* lisp/gnus/smiley.el: Ditto.

* lisp/gnus/smime.el: Ditto.

* lisp/gnus/spam-report.el: Ditto.

* lisp/gnus/spam-stat.el: Ditto.

* lisp/gnus/spam.el: Ditto.

* lisp/gnus/unimportant.xpm: Ditto.

* lisp/gnus/wry.xpm: Ditto.

* lisp/gnus/yenc.el: Ditto.

* lisp/mh-e/mh-acros.el: Ditto.

* lisp/mh-e/mh-init.el: Ditto.

* lisp/mh-e/mh-print.el: Ditto.

* lisp/net/password.el: Ditto.

* lisp/textmodes/dns-mode.el: Ditto.

* lisp/gnus/gnus-mule.el: Removed.

* lisp/gnus/smiley-ems.el: Ditto.

Files:

• branches/2.2/lisp/gnus/gnus-start.el (modified) (67 diffs)

branches/2.2/lisp/gnus/gnus-start.el

@@ -1 +1 @@
-;;; gnus-start.el --- startup functions for Gnus
-
+, 2003
-;;        Free Software Foundation, Inc.
-
@@ -33 +33 @@
-(require 'gnus-range)
-(require 'gnus-util)
-
+
+
+
-(eval-when-compile (require 'cl))
-
@@ -41 +43 @@
-  :group 'gnus-start
-  :type 'file)
+
+(defcustom gnus-backup-startup-file 'never
+  "Whether to create backup files.
+This variable takes the same values as the `version-control'
+variable."
+  :version "21.4"
+  :group 'gnus-start
+  :type '(choice (const :tag "Never" never)
+                 (const :tag "If existing" nil)
+                 (other :tag "Always" t)))
+
+(defcustom gnus-save-startup-file-via-temp-buffer t
+  "Whether to write the startup file contents to a buffer then save
+the buffer or write directly to the file.  The buffer is faster
+because all of the contents are written at once.  The direct write
+uses considerably less memory."
+  :version "21.4"
+  :group 'gnus-start
+  :type '(choice (const :tag "Write via buffer" t)
+                 (const :tag "Write directly to file" nil)))
-
-(defcustom gnus-init-file (nnheader-concat gnus-home-directory ".gnus")
@@ -225 +247 @@
-not match this regexp will be removed before saving the list."
-  :group 'gnus-newsrc
-
+
+
+
+
+
+
-
-(defcustom gnus-ignored-newsgroups
-  (mapconcat 'identity
-             '("^to\\."                 ; not "real" groups
- "  
+\\( \\|$\\)"
-               "^[\"][]\"[#'()]"        ; bogus characters
-               )
@@ -242 +269 @@
-
-(defcustom gnus-subscribe-newsgroup-method 'gnus-subscribe-zombies
-
+(s)
-A few pre-made functions are supplied: `gnus-subscribe-randomly'
-inserts new groups at the beginning of the list of groups;
@@ -260 +287 @@
-                (function-item gnus-subscribe-zombies)
-                (function-item gnus-subscribe-topics)
-
+
+
+
+
+
+
+
+
-
-(defcustom gnus-subscribe-options-newsgroup-method
-  'gnus-subscribe-alphabetically
-This function is
+Function(s)
-If, for instance, you want to subscribe to all newsgroups in the
-\"no\" and \"alt\" hierarchies, you'd put the following in your
@@ -280 +314 @@
-                (function-item gnus-subscribe-killed)
-                (function-item gnus-subscribe-zombies)
-
+
+
+
-
-(defcustom gnus-subscribe-hierarchical-interactive nil
@@ -295 +331 @@
-
-(defcustom gnus-auto-subscribed-groups
-nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl
+^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^nnbabyl\\|^nnmaildir
-  "*All new groups that match this regexp will be subscribed automatically.
-Note that this variable only deals with new groups.  It has no effect
@@ -355 +391 @@
-  :type 'hook)
-
-
+
+
-  "A hook after reading the .newsrc file, but before generating the buffer."
-  :group 'gnus-start
+  :type 'hook)
+
+(defcustom gnus-get-top-new-news-hook nil
+  "A hook run just before Gnus checks for new news globally."
+  :group 'gnus-group-new
-  :type 'hook)
-
@@ -366 +408 @@
-
-(defcustom gnus-after-getting-new-news-hook
-(when (gnus-boundp 'display-time-timer)
-'(display-time-event-handler)
+'(gnus-display-time-event-handler
+gnus-fixup-nnimap-unread-after-getting-new-news
-  "*A hook run after Gnus checks for new news when Gnus is already running."
-  :group 'gnus-group-new
+  :type 'hook)
+
+(defcustom gnus-read-newsrc-el-hook nil
+  "A hook called after reading the newsrc.eld? file."
+  :group 'gnus-newsrc
-  :type 'hook)
-
@@ -387 +434 @@
-Can be used to turn version control on or off."
-  :group 'gnus-newsrc
+  :type 'hook)
+
+(defcustom gnus-group-mode-hook nil
+  "Hook for Gnus group mode."
+  :group 'gnus-group-various
+  :options '(gnus-topic-mode)
-  :type 'hook)
-
@@ -433 +486 @@
-                (load file nil t)
-              (error
-var
+(cadr var)
-
-;; For subscribing new newsgroup
@@ -509 +562 @@
-
-(defun gnus-subscribe-alphabetically (newgroup)
-S
+
-  (let ((groups (cdr gnus-newsrc-alist))
-        before)
@@ -519 +572 @@
-
-(defun gnus-subscribe-hierarchically (newgroup)
-S
+
-  ;; Basic ideas by mike-w@cs.aukuni.ac.nz (Mike Williams)
-  (save-excursion
-    (set-buffer (nnheader-find-file-noselect gnus-current-startup-file))
-let ((groupkey newgroup)
- 
-    
-
-
-    
-
-    
-
-
-
-
-    
-
-    
-(kill-buffer (current-buffer
+prog1
+(let ((groupkey newgroup)
+       
+    
+    
+       
+    
+       
+    
+    
+    
+    
+       
+    
+       
+  (kill-buffer (current-buffer)
-
-(defun gnus-subscribe-interactively (group)
@@ -567 +620 @@
-     gnus-level-killed (gnus-gethash (or next "dummy.group")
-                                     gnus-newsrc-hashtb))
-
+
+
+
-
-(defun gnus-read-active-file-p ()
@@ -576 +631 @@
-
-;; Silence byte-compiler.
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(defun gnus-clear-system ()
-  "Clear all variables and buffers."
-  ;; Clear Gnus variables.
-gnus-variable-list
+(remove 'gnus-format-specs gnus-variable-list)
-    (while variables
-      (set (car variables) nil)
@@ -597 +663 @@
-  (setq gnus-list-of-killed-groups nil
-        gnus-have-read-active-file nil
+        gnus-agent-covered-methods nil
+        gnus-server-method-cache nil
-        gnus-newsrc-alist nil
-        gnus-newsrc-hashtb nil
@@ -631 +699 @@
-  (gnus-kill-buffer nntp-server-buffer)
-  ;; Kill Gnus buffers.
-
-
-
+
+
-  ;; Remove Gnus frames.
-  (gnus-kill-gnus-frames))
@@ -671 +738 @@
-    (setq gnus-slave slave)
-    (gnus-read-init-file)
+    (if gnus-agent
+        (gnus-agentize))
-
-    (when gnus-simple-splash
@@ -708 +777 @@
-
-          ;; Do the actual startup.
+          (if gnus-agent
+              (gnus-request-create-group "queue" '(nndraft "")))
+          (gnus-request-create-group "drafts" '(nndraft ""))
-          (gnus-setup-news nil level dont-connect)
-          (gnus-run-hooks 'gnus-setup-news-hook)
@@ -727 +799 @@
-     "nndraft:drafts" 'gnus-dummy '((gnus-draft-mode)))))
-
-;;;###autoload
-(defun gnus-unload ()
-  "Unload all Gnus features.
-\(For some value of `all' or `Gnus'.)  Currently, features whose names
-have prefixes `gnus-', `nn', `mm-' or `rfc' are unloaded.  Use
-cautiously -- unloading may cause trouble."
-  (interactive)
-  (dolist (feature features)
-    (if (string-match "^\\(gnus-\\|nn\\|mm-\\|rfc\\)" (symbol-name feature))
-        (unload-feature feature 'force))))
-
-
-;;;
@@ -764 +825 @@
-      (goto-char (point-max))
-      (insert string "\n")
-
+
+
+
+
+
-      (bury-buffer gnus-dribble-buffer)
-      (save-excursion
@@ -790 +855 @@
-      (let ((auto (make-auto-save-file-name))
-            (gnus-dribble-ignore t)
+            (purpose nil)
-            modes)
-        (when (or (file-exists-p auto) (file-exists-p dribble-file))
@@ -805 +871 @@
-                     (setq modes (file-modes gnus-current-startup-file)))
-            (set-file-modes dribble-file modes))
+          (goto-char (point-min))
+          (when (search-forward "Gnus was exited on purpose" nil t)
+            (setq purpose t))
-          ;; Possibly eval the file later.
-          (when (or gnus-always-read-dribble-file
-                    (gnus-y-or-n-p
-
+
+
+
-            (setq gnus-dribble-eval-file t)))))))
-
@@ -870 +941 @@
-    ;; Make sure the archive server is available to all and sundry.
-    (when gnus-message-archive-method
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-    ;; If we don't read the complete active file, we fill in the
@@ -880 +958 @@
-              (eq gnus-read-active-file 'some))
-      (gnus-update-active-hashtb-from-killed))
+
+    ;; Validate agent covered methods now that gnus-server-alist has
+    ;; been initialized.
+    ;; NOTE: This is here for one purpose only.  By validating the
+    ;; agentized server's, it converts the old 5.10.3, and earlier,
+    ;; format to the current format.  That enables the agent code
+    ;; within gnus-read-active-file to function correctly.
+    (if gnus-agent
+        (gnus-agent-read-servers-validate))
-
-    ;; Read the active file and create `gnus-active-hashtb'.
@@ -909 +996 @@
-    ;; See whether we need to read the description file.
-    (when (and (boundp 'gnus-group-line-format)
+               (stringp gnus-group-line-format)
-               (let ((case-fold-search nil))
-                 (string-match "%[-,0-9]*D" gnus-group-line-format))
@@ -923 +1011 @@
-      (gnus-find-new-newsgroups))
-
+    ;; Check and remove bogus newsgroups.
+    (when (and init gnus-check-bogus-newsgroups
+               gnus-read-active-file (not level)
+               (gnus-server-opened gnus-select-method))
+      (gnus-check-bogus-newsgroups))
+
-    ;; We might read in new NoCeM messages here.
-    (when (and gnus-use-nocem
@@ -934 +1028 @@
-    ;; Find the number of unread articles in each non-dead group.
-    (let ((gnus-read-active-file (and (not level) gnus-read-active-file)))
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(defun gnus-find-new-newsgroups (&optional arg)
@@ -993 +1097 @@
-                   (setq groups (1+ groups))
-                   (gnus-sethash group group gnus-killed-hashtb)
-
+
+
-                  ((eq do-sub 'ignore)
-                   nil)
@@ -1001 +1106 @@
-                   (if gnus-subscribe-hierarchical-interactive
-                       (push group new-newsgroups)
-
+
+
-           gnus-active-hashtb)
-          (when new-newsgroups
@@ -1086 +1192 @@
-                 (incf groups)
-                 (gnus-sethash group group gnus-killed-hashtb)
-
+
+
-                ((eq do-sub 'ignore)
-                 nil)
@@ -1094 +1201 @@
-                 (if gnus-subscribe-hierarchical-interactive
-                     (push group new-newsgroups)
-
+
+
-         hashtb))
-      (when new-newsgroups
@@ -1110 +1218 @@
-    ;; First check if any of the following files exist.  If they do,
-    ;; it's not the first time the user has used Gnus.
-
-
+
-                        (concat gnus-current-startup-file ".eld")
-                        gnus-startup-file
-                        (concat gnus-startup-file ".el")
-                        (concat gnus-startup-file ".eld")))
@@ -1127 +1233 @@
-                      gnus-backup-default-subscribed-newsgroups))
-          group)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        (dolist (group groups)
-          ;; Only subscribe the default groups that are activated.
@@ -1149 +1256 @@
-        (save-excursion
-          (set-buffer gnus-group-buffer)
-
+
+
+
-        (when gnus-novice-user
-          (gnus-message 7 "`A k' to list killed groups"))))))
-
-(defun gnus-subscribe-group (group &optional previous method)
-
+s
-  (gnus-group-change-level
-   (if method
@@ -1214 +1323 @@
-      (cond
-       ((>= oldlevel gnus-level-zombie)
-(if (= oldlevel gnus-level-zombie)
-    
-  (setq gnus-killed-list (delete group gnus-killed-list)
+;; oldlevel could be wrong.
+
+(setq gnus-killed-list (delete group gnus-killed-list
-       (t
-        (when (and (>= level gnus-level-zombie)
@@ -1239 +1348 @@
-          (if (= level gnus-level-zombie)
-              (push group gnus-zombie-list)
-
+
+
+
+
+
-       (t
-        ;; If the list is to be entered into the newsrc assoc, and
@@ -1307 +1420 @@
-              group (gnus-info-group info))
-        (unless (or (gnus-active group) ; Active
-
+
+
+
-          ;; Found a bogus newsgroup.
-          (push group bogus)))
@@ -1378 +1493 @@
-                (gnus-request-scan group method))
-           t)
-condition-case (
+if (or debug-on-error debug-on-quit
-             (inline (gnus-request-group group dont-check method))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(defun gnus-get-unread-articles-in-group (info active &optional update)
@@ -1412 +1531 @@
-        (inline (gnus-cache-possibly-alter-active
-                 (gnus-info-group info) active)))
+
+      ;; If the agent is enabled, we may have to alter the active info.
+      (when (and gnus-agent info)
+        (gnus-agent-possibly-alter-active
+         (gnus-info-group info) active))
+
-      ;; Modify the list of read articles according to what articles
-      ;; are available; then tally the unread articles and add the
@@ -1478 +1603 @@
-        (setq num (max 0 (- (cdr active) num)))))
-      ;; Set the number of unread articles.
-
+
+
-        (setcar (gnus-gethash (gnus-info-group info) gnus-newsrc-hashtb) num))
-      num)))
@@ -1485 +1611 @@
-;; and compute how many unread articles there are in each group.
-(defun gnus-get-unread-articles (&optional level)
+  (setq gnus-server-method-cache nil)
-  (let* ((newsrc (cdr gnus-newsrc-alist))
-         (level (or level gnus-activate-level (1+ gnus-level-subscribed)))
@@ -1496 +1623 @@
-                 (t 0))
-           level))
-
-
+
+
+
+
+
-
-    (while newsrc
@@ -1515 +1645 @@
-      ;; t for unchecked foreign groups or bogus groups, or groups that can't
-      ;;   be checked, for one reason or other.
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-          ;; These groups are foreign.  Check the level.
-          (when (and (<= (gnus-info-level info) foreign-level)
-                
+               
-            ;; Let the Gnus agent save the active file.
-gnus-plugged active
+active (gnus-online method)
-              (gnus-agent-save-group-info
-               method (gnus-group-real-name group) active))
@@ -1543 +1686 @@
-              ;; if server support gnus-retrieve-groups we push
-              ;; the group onto retrievegroups for later checking
-
-
-
-
+-
+-
+-
+-
-            ;; hack: `nnmail-get-new-mail' changes the mail-source depending
-            ;; on the group, so we must perform a scan for every group
@@ -1564 +1707 @@
-              (setq active (gnus-activate-group group 'scan))
-              (push method scanned-methods))
-        
-        
+       
+       
-
-      ;; Get the number of unread articles in the group.
@@ -1579 +1722 @@
-        (gnus-set-active group nil)
-        (let ((tmp (gnus-gethash group gnus-newsrc-hashtb)))
-
+
+
-
-    ;; iterate through groups on methods which support gnus-retrieve-groups
-    ;; and fetch a partial active file and use it to find new news.
-
-
-
-
+
+
+
-        (when (gnus-check-server method)
-        
-        
-        
-
-                                             (gnus-group-real-name group)
-                                           groups)
-        
-        
-        
-                                        
-        
-        
-        
-        
-        
-        
-
-5
+       
+       
+       
+
+          (mapcar (lambda (group) (gnus-group-real-name group)) groups
+         
+       
+       
+       
+                                       
+       
+       
+       
+       
+       
+       
+
+6
-
-;; Create a hash table out of the newsrc alist.  The `car's of the
@@ -1665 +1808 @@
-        (push article news)))
-    (when news
+      ;; Enter this list into the group info.
-      (gnus-info-set-read
-       info (gnus-remove-from-range (gnus-info-read info) (nreverse news)))
+
+      ;; Set the number of unread articles in gnus-newsrc-hashtb.
+      (gnus-get-unread-articles-in-group info (gnus-active group))
+
+      ;; Insert the change into the group buffer and the dribble file.
+      (gnus-group-update-group group t))))
+
+(defun gnus-make-ascending-articles-unread (group articles)
+  "Mark ascending ARTICLES in GROUP as unread."
+  (let* ((entry (or (gnus-gethash group gnus-newsrc-hashtb)
+                    (gnus-gethash (gnus-group-real-name group)
+                                  gnus-newsrc-hashtb)))
+         (info (nth 2 entry))
+         (ranges (gnus-info-read info))
+         (r ranges)
+         modified)
+
+    (while articles
+      (let ((article (pop articles))) ; get the next article to remove from ranges
+        (while (let ((range (car ranges))) ; note the current range
+                 (if (atom range)       ; single value range
+                     (cond ((not range)
+                            ;; the articles extend past the end of the ranges
+                            ;; OK - I'm done
+                            (setq articles nil))
+                           ((< range article)
+                            ;; this range preceeds the article. Leave the range unmodified.
+                            (pop ranges)
+                            ranges)
+                           ((= range article)
+                            ;; this range exactly matches the article; REMOVE THE RANGE.
+                            ;; NOTE: When the range being removed is the last range, the list is corrupted by inserting null at its end.
+                            (setcar ranges (cadr ranges))
+                            (setcdr ranges (cddr ranges))
+                            (setq modified (if (car ranges) t 'remove-null))
+                            nil))
+                   (let ((min (car range))
+                         (max (cdr range)))
+                     ;; I have a min/max range to consider
+                     (cond ((> min max) ; invalid range introduced by splitter
+