From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/50785 Path: main.gmane.org!not-for-mail From: David Abrahams Newsgroups: gmane.emacs.gnus.general Subject: Re: nnimap doing redundant work? Date: Tue, 11 Mar 2003 13:22:17 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1047407156 25586 80.91.224.249 (11 Mar 2003 18:25:56 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 11 Mar 2003 18:25:56 +0000 (UTC) Original-X-From: owner-ding@hpc.uh.edu Tue Mar 11 19:25:54 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18soP2-0006C4-00 for ; Tue, 11 Mar 2003 19:23:04 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18soOk-0001C4-00; Tue, 11 Mar 2003 12:22:46 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 11 Mar 2003 12:23:46 -0600 (CST) Original-Received: from stlport.com (stlport.com [64.39.31.56]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id MAA21036 for ; Tue, 11 Mar 2003 12:23:29 -0600 (CST) Original-Received: from [146.115.123.43] (account dave HELO PENGUIN.boost-consulting.com) by stlport.com (CommuniGate Pro SMTP 3.5.9) with ESMTP id 208765; Tue, 11 Mar 2003 10:22:24 -0800 Original-To: ding@hpc.uh.edu Original-To: dave@boost-consulting.com In-Reply-To: (Simon Josefsson's message of "Tue, 11 Mar 2003 19:00:10 +0100") User-Agent: Gnus/5.090016 (Oort Gnus v0.16) Emacs/21.3.50 (i386-msvc-nt5.1.2600) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:50785 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:50785 --=-=-= Simon Josefsson writes: > David Abrahams writes: > >> Simon Josefsson writes: >> >>> David Abrahams writes: >>> >>>>> How do you set up the nnimap server definition in Gnus (i.e., >>>>> ~/.gnus or ~/.emacs snippet)? >>>> >>>> (setq gnus-select-method >>>> '(nnimap "www.stlport.com" >>>> (nnimap-address "www.stlport.com") >>>> (nnimap-stream ssl) >>>> (nnimap-authenticator login) >>>> )) >>> >>> Perhaps this hasn't been tested much. Could you kill all groups, >>> restart emacs with this definition instead: >>> >>> (setq gnus-select-method '(nnnil "") >>> gnus-secondary-select-methods '((nnimap "www.stlport.com" >>> (nnimap-address "www.stlport.com") >>> (nnimap-stream ssl) >>> (nnimap-authenticator login) >>> ))) >> >> nnimap: Updating info for nnimap+www.stlport.com:INBOX...done >> Retrieving newsgroup: nnimap+www.stlport.com:INBOX... >> nnimap: Updating info for nnimap+www.stlport.com:INBOX...done >> Fetching headers for nnimap+www.stlport.com:INBOX...done >> Generating summary...done >> No more unread articles >> >> >> Also, the group buffer was pretty strange after I did this; several >> groups appeared multiple times. I had to kill them and re-check my >> subscriptions in order to clean things up. > > Did you kill all groups and then resubscribed to them? Yes. > No mention of the old groups in ~/.newsrc* when you press `s' in > Gnus? In which buffer? `s' in the *Group* buffer doesn't show me ~/.newsrc. If I go look at it, it says: writing/MPL: writing/MPL! writing/MPL! 1-1082,1084-1093,1095-1375,1377-1381,1383-1389 > Do you have any customization when entering a group? Or just any kind > of customization that might affect this? I'm happy to send you my .gnus (enclosed)... Since I've been wiping the groups per your instructions and haven't explicitly customized anything, I assume there are no group customizations. >>> If this solves it, it is probably easy to reproduce the problem. If >>> you like to debug the lisp to see why this happens, that would be >>> appreciated. >> >> I'm very bad at elisp debugging (not very competent with edebug), but >> if there's a specifc thing you want me to look at I'll be happy to do >> it. > > Let's try to get things into a working state first, then it is easier > to debug; just do a binary search between the working state and the > buggy state until the cause of the problem is found. It still takes > some energy though, so perhaps you'll settle with simply having the > problem disappear. But is useful too, the mailing list archive will > document this, in case someone wants to debug this in the future. Are you sure that I'm seeing some unexpected behavior? I don't know how to characterize "working" except that I know it feels slow to use my IMAP server through gnus. BTW, should I be updating my gnus installation? I'm using o0-15. --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Disposition: attachment; filename=.gnus Content-Transfer-Encoding: quoted-printable (add-hook 'gnus-select-article-hook 'gnus-agent-fetch-selected-article) (setq my-inbox-group-params '((uidvalidity . "255800654") (total-expire . t) (spam-process-destination . "SpamBox") (expiry-wait . 15))) (setq my-gnus-parameters '(("mail\\..*" (gnus-show-threads nil) (gnus-use-scoring nil) (gnus-summary-line-format "%U%R%z%I%(%[%d:%ub%-23,23f%]%) %s\n") (gcc-self . t) (display . all)) ("mail\\.me" (gnus-use-scoring t)) ("list\\..*" (total-expire . t) (broken-reply-to . t)))) ; Using secondary select method instead per Simon's instructions (and nil (setq gnus-select-method '(nnimap "www.stlport.com" (nnimap-address "www.stlport.com") (nnimap-stream ssl) (nnimap-authenticator login) ))) (setq gnus-select-method '(nnnil "") gnus-secondary-select-methods '( ;; Using secondary select method per Simon's instructions (nnimap "www.stlport.com" (nnimap-address "www.stlport.com") (nnimap-stream ssl) (nnimap-authenticator login) ) (nntp "news.rcn.com") (nntp "news.gmane.org") ) ssl-view-certificate-program-name "notepad" ; imap-debug t gnus-check-new-newsgroups nil gnus-local-domain "boost-consulting.com" =20=20=20=20=20=20 ; gnus-message-archive-group '("nnimap+www.stlport.com:INBOX" ; ;"nnimap+www.stlport.com:Sent" ; ) =20=20=20=20=20=20 gnus-summary-line-format "%O%U%R%z%I%d%(%[%4L: %-20,20n%]%) %s " gnus-summary-ignore-duplicates t =20=20=20=20=20=20 ; gnus-total-expirable-newsgroups "INBOX" ; gnus-cacheable-groups "^nnimap*" ; gnus-use-cache nil gnus-agent-cache t gnus-agent t gnus-agent-consider-all-articles t gnus-agent-expire-days 36500 ; gnus-agent-mark-unread-after-downloaded nil message-subject-trailing-was-query t ;; always strip the trailing old = subject in (was: ...) subjects message-default-headers "To: dave@boost-consulting.com" =20=20=20=20 my-gnus-summary-highlight '(((eq mark gnus-canceled-mark) . gnus-summary-cancelled-face) ((and (> score default-high) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-high-ticked-face) ((and (< score default-low) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-low-ticked-face) ((or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark)) . gnus-summary-normal-ticked-face) ((and (> score default-high) (eq mark gnus-ancient-mark)) . gnus-summary-high-ancient-face) ((and (< score default-low) (eq mark gnus-ancient-mark)) . gnus-summary-low-ancient-face) ((eq mark gnus-ancient-mark) . gnus-summary-normal-ancient-face) ((and (> score default-high) (eq mark gnus-unread-mark)) . gnus-summary-high-unread-face) ((and (< score default-low) (eq mark gnus-unread-mark)) . gnus-summary-low-unread-face) ((eq mark gnus-unread-mark) . gnus-summary-normal-unread-face) ((> score default-high) . gnus-summary-high-read-face) ((< score default-low) . gnus-summary-low-read-face) (t . gnus-summary-normal-read-face)) ) (if (and (eq system-type 'windows-nt) (< my-emacs-version 21.3)) (custom-set-faces '(gnus-emphasis-bold ((t (:weight bold :height 0.99 :family "tahoma"))= )) '(gnus-emphasis-bold-italic ((t (:slant italic :weight bold :family "a= rial")))) '(gnus-emphasis-italic ((t (:slant italic :family "arial")))) ; '(gnus-summary-high-ancient-face = ((t (:foreground "magenta4" :weight bold :family "tahoma")))) ; '(gnus-summary-high-ticked-face (= (t (:foreground "firebrick" :weight bold :family "arial")))) ; '(gnus-summary-high-undownloaded-= face ((t (:foreground "magenta4" :weight normal)))) ; '(gnus-summary-low-ancient-face (= (t (:foreground "magenta4" :slant italic :family "arial")))) ; '(gnus-summary-low-undownloaded-f= ace ((t (:foreground "magenta4" :slant italic :weight normal :family "arial= ")))) ; '(gnus-summary-normal-ancient-fac= e ((((class color) (background light)) (:foreground "magenta4")))) ; '(gnus-summary-normal-undownloade= d-face ((t (:foreground "magenta4" :weight normal)))) ) ) (if t (progn (gnus-add-configuration '(article (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0 point)) (vertical .5 (article 1.0))))) (gnus-add-configuration '(summary (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0 point)) (vertical .5 (article 1.0))))) (gnus-add-configuration '(message (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0)) (vertical .5 (message 1.0 point))))) (gnus-add-configuration '(reply (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0)) (vertical .5 (message 1.0 point) (article .25))))) (gnus-add-configuration '(reply-yank (horizontal 1.0 (vertical 1.0 (group 35) (summary 1.0)) (vertical .5 (message 1.0 point))))) ) =20=20 (progn (gnus-add-configuration '(article (horizontal 1.0=20 (group 60) (summary 1.0 point) (article 80)))) (gnus-add-configuration '(summary (horizontal 1.0=20 (group 60) (summary 1.0 point) (article 80)))) (gnus-add-configuration '(message (horizontal 1.0=20 (group 60) (summary 1.0) (message 80 point)))) (gnus-add-configuration '(reply (horizontal 1.0=20 (group 60) (summary 1.0) (message 80 point)))) (gnus-add-configuration '(reply-yank (horizontal 1.0=20 (group 60) (summary 1.0) (message 80 point)))) )) (define-key gnus-summary-mode-map "d" 'gnus-summary-mark-as-expirable) (define-key gnus-summary-mode-map "$" 'gnus-summary-mark-as-spam) (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) (setq message-dont-reply-to-names "\\(dave@boost-consulting\\.com\\)\\|\\(d= avid\\.abrahams@rcn\\.com\\)\\|\\(Undisclosed recipients\\)") (setq mm-discouraged-alternatives '("text/html" "text/richtext")) ;; delete duplicate messages (setq nnmail-treat-duplicates 'delete) ;; Hack GNUs' inability to follow references reliably ;; This still doesn't work :( (defun my-fetch-whole-thread() "like `A R' `T o' `A T' in the summary buffer." (interactive) (gnus-summary-refer-references) (gnus-summary-top-thread) (gnus-summary-refer-thread)) (define-key gnus-summary-mode-map (kbd "AT") 'my-fetch-whole-thread) ;; leave this at the bottom, on Kai Gro=DFjohann's recommendation (gnus-compile) --=-=-= -- Dave Abrahams Boost Consulting www.boost-consulting.com --=-=-=--