From: David Abrahams <dave@boost-consulting.com>
Subject: Re: nnimap doing redundant work?
Date: Tue, 11 Mar 2003 13:22:17 -0500 [thread overview]
Message-ID: <u3cltdaqu.fsf@boost-consulting.com> (raw)
In-Reply-To: <iluadg1rdg5.fsf@latte.josefsson.org> (Simon Josefsson's message of "Tue, 11 Mar 2003 19:00:10 +0100")
[-- Attachment #1: Type: text/plain, Size: 3081 bytes --]
Simon Josefsson <jas@extundo.com> writes:
> David Abrahams <dave@boost-consulting.com> writes:
>
>> Simon Josefsson <jas@extundo.com> writes:
>>
>>> David Abrahams <dave@boost-consulting.com> 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.
[-- Attachment #2: .gnus --]
[-- Type: text/plain, Size: 8164 bytes --]
(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"
; gnus-message-archive-group '("nnimap+www.stlport.com:INBOX"
; ;"nnimap+www.stlport.com:Sent"
; )
gnus-summary-line-format "%O%U%R%z%I%d%(%[%4L: %-20,20n%]%) %s
"
gnus-summary-ignore-duplicates t
; 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"
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 "arial"))))
'(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-face ((t (:foreground "magenta4" :slant italic :weight normal :family "arial"))))
; '(gnus-summary-normal-ancient-face ((((class color) (background light)) (:foreground "magenta4"))))
; '(gnus-summary-normal-undownloaded-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)))))
)
(progn
(gnus-add-configuration
'(article
(horizontal 1.0
(group 60)
(summary 1.0 point)
(article 80))))
(gnus-add-configuration
'(summary
(horizontal 1.0
(group 60)
(summary 1.0 point)
(article 80))))
(gnus-add-configuration
'(message
(horizontal 1.0
(group 60)
(summary 1.0)
(message 80 point))))
(gnus-add-configuration
'(reply
(horizontal 1.0
(group 60)
(summary 1.0)
(message 80 point))))
(gnus-add-configuration
'(reply-yank
(horizontal 1.0
(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\\)\\|\\(david\\.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ßjohann's recommendation
(gnus-compile)
[-- Attachment #3: Type: text/plain, Size: 62 bytes --]
--
Dave Abrahams
Boost Consulting
www.boost-consulting.com
next prev parent reply other threads:[~2003-03-11 18:22 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-03-09 13:57 David Abrahams
2003-03-09 14:01 ` David Abrahams
2003-03-09 15:03 ` Simon Josefsson
2003-03-09 15:25 ` David Abrahams
2003-03-09 15:49 ` Simon Josefsson
2003-03-09 16:56 ` David Abrahams
2003-03-09 17:06 ` Simon Josefsson
2003-03-09 23:43 ` David Abrahams
2003-03-10 4:22 ` David Abrahams
2003-03-10 13:00 ` Simon Josefsson
2003-03-10 13:10 ` David Abrahams
2003-03-10 13:55 ` Simon Josefsson
2003-03-11 17:03 ` David Abrahams
2003-03-11 18:00 ` Simon Josefsson
2003-03-11 18:22 ` David Abrahams [this message]
2003-03-12 15:29 ` Kai Großjohann
2003-03-24 3:13 ` David Abrahams
2003-03-13 16:00 ` David Abrahams
2003-03-14 16:48 ` Simon Josefsson
2003-03-17 12:21 ` David Abrahams
2003-03-17 18:02 ` David Abrahams
2003-03-17 18:18 ` Simon Josefsson
2003-03-10 14:21 ` Kai Großjohann
2003-03-24 3:15 ` David Abrahams
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=u3cltdaqu.fsf@boost-consulting.com \
--to=dave@boost-consulting.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).