RE: Setting 'pop3-leave-mail-on-server' for each server

I have a patch that makes the file be dependent on the server name if anyone wants to try it. andy At 12:10 PM 3/27/02 +0100, Simon Josefsson wrote: >Aha. Ok, Peter, does it work if you modify `pop3-uidl-file-name' in your >hook functions so that you use one filename per server? Or perhaps I >missunderstood something, I guess this problem would have occured earlier >for anyone just using two servers? Or is it ok to have one file for >several servers? > >On Tue, 26 Mar 2002, Andy Piper wrote: > > > Right, the default is ~/.uidls > > > > andy > > > > At 09:36 AM 3/26/2002 -0500, Peter Davis wrote: > > > > >Thanks for your response. I'm not actually specifying a filename > > >anywhere, so the filename is whatever gnus and pop3 select. What's > > >interesting is that it works if pop3-leave-mail-on server is always true, > > >or always false, but not if I switch between mail sources. > > > > > >Thanks, > > > > > >-pd > > > > > > > > > > > >At 12:18 AM 3/26/2002, Andy Piper wrote: > > >>I suspect the problem is that you are using the same filename for all > > >>mailboxes and each save is tramping over the previous one. Try > making your > > >>functions modify the mailbox name also. I'm not sure whether the > existing > > >>pop3 should maybe use the server name for uidls. Possibly. > > >> > > >>andy > > >> > > >> > -----Original Message----- > > >> > From: xemacs-beta-admin(a)xemacs.org > > >> > [mailto:xemacs-beta-admin＠xemacs.org]On Behalf Of Peter Davis > > >> > Sent: Monday, March 04, 2002 5:19 AM > > >> > To: xemacs-beta(a)xemacs.org > > >> > Subject: Setting 'pop3-leave-mail-on-server' for each server > > >> > > > >> > > > >> > This bug report will be sent to the XEmacs Development Team, > > >> > not to your local site managers!! > > >> > Please write in English, because the XEmacs maintainers do not have > > >> > translators to read other languages for them. > > >> > > > >> > > > >> > Please describe as succinctly as possible: > > >> > - What happened. > > >> > - What you thought should have happened. > > >> > - Precisely what you were doing at the time. > > >> > > > >> > Please also include any C or lisp back-traces that you may have. > > >> > ================================================================ > > >> > Dear Bug Team! > > >> > > > >> > I'm trying to use the 'pop3-leave-mail-on-server' feature > selectively, > > >> > so that I leave mail on some POP3 servers, but delete it from others. > > >> > I've tried the code below. However, for any server that calls > > >> > 'pop3-delete-on', I simply get no messages from that server. The > > >> > messages are left on the server, but they never show up in my nnml > > >> > groups. (I'm using gnus 5.8.8). If I later switch the :prescript for > > >> > that server back to 'pop3-delete-off', I get the backlogged messages. > > >> > > > >> > Here's the code in my .gnus file for this: > > >> > ;;;;;;;;;;;;;;; > > >> > ;These functions enable/disable POP3 expunging for XEmacs > > >> > (defun pop3-delete-on () > > >> > (interactive) > > >> > (message "Deleting mail from POP3 server.") > > >> > (setq pop3-leave-mail-on-server nil)) > > >> > > > >> > (defun pop3-delete-off () > > >> > (interactive) > > >> > (message "Leaving mail on POP3 server.") > > >> > (setq pop3-leave-mail-on-server t)) > > >> > > > >> > (if (string-match "XEmacs\\|Lucid" emacs-version) > > >> > ( > > >> > setq nnmail-movemail-program 'pop3-nnmail-movemail > > >> > pop3-leave-mail-on-server t > > >> > nnmail-spool-file '("po:peter_davis＠mediaone.net" > > >> > "po:pd＠world.std.com" > > >> > "po:pdavis＠bitstream.com" > > >> > ) > > >> > mail-sources '((pop :server "pop.ne.mediaone.net" > > >> > :user "peter_davis" > > >> > :prescript pop3-delete-off) > > >> > (pop :server "pop.theworld.com" > > >> > :user "pd" > > >> > :prescript pop3-delete-on) > > >> > (pop :server "mail.bitstream.com" > > >> > :user "pdavis" > > >> > :prescript pop3-delete-off) > > >> > ) > > >> > ;;pop3-uidl-file-name "d:/home/.uidls" > > >> > ) > > >> > ; ... > > >> > ) > > >> > ;;;;;;;;;;;;;;; > > >> > > > >> > I do see the messages, so I know these functions are being called. > > >> > However, the pop3-delete-on function seems to completely disable that > > >> > server somehow. > > >> > > > >> > Is the value of pop3-leave-mail-on-server cached somehow? Is there > > >> > some other way I could code this to get the desired effect? > > >> > > > >> > Thanks, > > >> > > > >> > -pd > > >> > > > >> > > > >> > > > >> > > > >> > > > >> > ================================================================ > > >> > > > >> > System Info to help track down your bug: > > >> > --------------------------------------- > > >> > > > >> > OS version: > > >> > > > >> > Microsoft Windows 2000 [Version 5.00.2195] > > >> > OS: Windows_NT > > >> > > > >> > XEmacs 21.4.6 \"Common Lisp (Windows [1])\" configured for > > >> > `i586-pc-win32'. > > >> > > > >> > Building XEmacs in \"f:\\xemacs\\xemacs-21.4-release\\nt\". > > >> > Using compiler \"cl -nologo -W3 -O2 -G5 -ML\". > > >> > Installing XEmacs in \"c:\\Program Files\\XEmacs\\XEmacs-21.4.6\". > > >> > Package path is \"~\\.xemacs;;c:\\Program > > >> > Files\\XEmacs\\site-packages;c:\\Program > Files\\XEmacs\\xemacs-packages\". > > >> > Compiling in support for Microsoft Windows native GUI. > > >> > Compiling in support for XPM images. > > >> > Compiling in support for GIF images. > > >> > Compiling in support for PNG images. > > >> > Compiling in support for TIFF images. > > >> > Compiling in support for JPEG images. > > >> > Compiling in support for X-Face message headers. > > >> > Compiling in support for toolbars. > > >> > Compiling in support for dialogs. > > >> > Compiling in support for widgets. > > >> > Compiling in support for native sounds. > > >> > Compiling in fast dired implementation. > > >> > Using minimal tagbits. > > >> > Using indexed lrecord implementation. > > >> > Using portable dumper. > > >> > > > >> > > > >> > Load-Path Lisp Shadows: > > >> > ---------------------- > > >> > (d:\HOME\emacsdir\records-1.4.8\records > > >> > ~/emacsdir/records-1.4.9/records > > >> > d:\HOME\emacsdir\records-1.4.8\records-vars > > >> > ~/emacsdir/records-1.4.9/records-vars > > >> > d:\HOME\emacsdir\records-1.4.8\records-util > > >> > ~/emacsdir/records-1.4.9/records-util > > >> > d:\HOME\emacsdir\records-1.4.8\records-search > > >> > ~/emacsdir/records-1.4.9/records-search > > >> > d:\HOME\emacsdir\records-1.4.8\records-load > > >> > ~/emacsdir/records-1.4.9/records-load > > >> > d:\HOME\emacsdir\records-1.4.8\records-index > > >> > ~/emacsdir/records-1.4.9/records-index > > >> > d:\HOME\emacsdir\records-1.4.8\records-dindex > > >> > ~/emacsdir/records-1.4.9/records-dindex d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\browse-url > > >> > ~/emacsdir\browse-url ~/emacsdir\tex-site d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\auctex\tex-site ~/emacsdir\dbx > > >> > d:\Program Files\XEmacs\xemacs-packages\lisp\debug\dbx d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\pop3 d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\gnus\pop3 ~/emacsdir\biff-mode > > >> > d:\Program Files\XEmacs\xemacs-packages\lisp\gnus\biff-mode > d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\starttls d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\starttls d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\smtpmail d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\smtpmail d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\sendmail d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\sendmail d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\rmailout d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\rmailout d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\rmail-mini d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\rmail-mini d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\rfc822 d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\rfc822 d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\rfc2104 d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\rfc2104 d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\reporter d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\reporter d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\pop3 d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\pop3 d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\mailheader d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\mailheader d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\mail-utils d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\mail-utils d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\mail-extr d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\mail-extr d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\mail-abbrevs d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\mail-abbrevs d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\highlight-headers > > >> > d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\highlight-headers > > >> > d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\browse-url > > >> > d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\browse-url > > >> > d:/Program > > >> > Files/XEmacs/xemacs-packages/lisp/mail-lib\browse-url-xemacs > > >> > d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\mail-lib\browse-url-xemacs > > >> > d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\base64 > > >> > d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\base64 > > >> > ~/emacsdir\metamail d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\net-utils\metamail > > >> > ~/emacsdir\postscript d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\prog-modes\postscript d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\ps-print\ps-print d:\Program > > >> > Files\XEmacs\xemacs-packages\lisp\ps-print-nomule\ps-print > > >> > ~/emacsdir\gnuserv d:\PROGRA~1\XEmacs\XEmacs-21.4.6\lisp\gnuserv) > > >> > > > >> > > > >> > Installed XEmacs Packages: > > >> > ------------------------- > > >> > > > >> > ((zenirc:version 1.13 :type regular) > > >> > (xslt-process :version 1.06 :type regular) > > >> > (xemacs-devel :version 1.4 :type single-file) > > >> > (xemacs-base :version 1.58 :type regular) > > >> > (w3 :version 1.21 :type regular) > > >> > (vm :version 7.02 :type regular) > > >> > (viper :version 1.31 :type regular) > > >> > (view-process :version 1.11 :type regular) > > >> > (vhdl :version 1.15 :type regular) > > >> > (vc-cc :version 1.18 :type regular) > > >> > (vc :version 1.3 :type regular) > > >> > (tramp :version 1.02 :type regular) > > >> > (tpu :version 1.12 :type regular) > > >> > (tooltalk :version 1.13 :type regular) > > >> > (tm :version 1.3 :type regular) > > >> > (time :version 1.11 :type regular) > > >> > (textools :version 1.12 :type regular) > > >> > (text-modes :version 1.37 :type single-file) > > >> > (texinfo :version 1.2 :type regular) > > >> > (supercite :version 1.19 :type regular) > > >> > (strokes :version 1.08 :type regular) > > >> > (speedbar :version 1.22 :type regular) > > >> > (sounds-wav :version 1.1 :type regular) > > >> > (sounds-au :version 1.1 :type regular) > > >> > (slider :version 1.13 :type regular) > > >> > (sieve :version 1.01 :type regular) > > >> > (sh-script :version 1.13 :type regular) > > >> > (sgml :version 1.08 :type regular) > > >> > (semantic :version 1.11 :type regular) > > >> > (scheme :version 1.11 :type regular) > > >> > (rmail :version 1.13 :type regular) > > >> > (reftex :version 1.24 :type regular) > > >> > (psgml :version 1.26 :type regular) > > >> > (ps-print-nomule :version 1.05 :type regular) > > >> > (ps-print :version 1.02 :type regular) > > >> > (prog-modes > > >> > :version > > >> > 1 > > >> > .49 > > >> > :type > > >> > single-file) > > >> > (pcomplete :version 1.01 :type regular) > > >> > (pcl-cvs :version 1.58 :type regular) > > >> > (pc :version 1.21 :type single-file) > > >> > (os-utils :version 1.26 :type single-file) > > >> > (net-utils :version 1.23 :type single-file) > > >> > (misc-games :version 1.15 :type single-file) > > >> > (mine :version 1.14 :type regular) > > >> > (mh-e :version 1.14 :type regular) > > >> > (mew :version 1.16 :type regular) > > >> > (mailcrypt :version 2.11 :type regular) > > >> > (mail-lib :version 1.43 :type regular) > > >> > (jde :version 1.32 :type regular) > > >> > (ispell :version 1.24 :type regular) > > >> > (ilisp :version 1.2 :type regular) > > >> > (igrep :version 1.08 :type regular) > > >> > (idlwave :version 1.24 :type regular) > > >> > (hm--html-menus :version 1.17 :type regular) > > >> > (gnus :version 1.58 :type regular) > > >> > (gnats :version 1.13 :type regular) > > >> > (games :version 1.13 :type regular) > > >> > (fsf-compat :version 1.1 :type single-file) > > >> > (frame-icon :version 1.09 :type regular) > > >> > (forms :version 1.14 :type regular) > > >> > (footnote :version 1.13 :type regular) > > >> > (eudc :version 1.35 :type regular) > > >> > (eterm :version 1.13 :type regular) > > >> > (eshell :version 1.02 :type regular) > > >> > (emerge :version 1.09 :type regular) > > >> > (elib :version 1.1 :type single-file) > > >> > (eieio :version 1.02 :type regular) > > >> > (eicq :version 1.05 :type regular) > > >> > (efs :version 1.27 :type regular) > > >> > (edt :version 1.12 :type regular) > > >> > (edit-utils :version 1.76 :type single-file) > > >> > (ediff :version 1.35 :type regular) > > >> > (edebug :version 1.14 :type regular) > > >> > (dired :version 1.11 :type regular) > > >> > (dictionary :version 1.06 :type regular) > > >> > (debug :version 1.14 :type regular) > > >> > (crisp :version 1.12 :type regular) > > >> > (cookie :version 1.13 :type regular) > > >> > (clearcase :version 1.02 :type regular) > > >> > (cc-mode :version 1.27 :type regular) > > >> > (calendar :version 1.18 :type regular) > > >> > (calc :version 1.18 :type regular) > > >> > (c-support :version 1.16 :type single-file) > > >> > (build :version 1.05 :type regular) > > >> > (bbdb :version 1.17 :type regular) > > >> > (auctex :version 1.29 :type regular) > > >> > (apel :version 1.2 :type regular) > > >> > (ada :version 1.1 :type regular) > > >> > (Sun :version 1.13 :type regular)) > > >> > > > >> > > > >> > Features: > > >> > -------- > > >> > > > >> > (hsmail xemacsbug shadow bbdb-gui flyspell ispell bbdb-com mail-extr > > >> > gnus-picon w3-forms w3-display w3-imap w3-widget css font w3-mouse > > >> > w3-vars w3-cus w3-keyword url mm mule-sysdp url-parse url-vars sort > > >> > smiley annotations gnus-cite gnus-async gnus-score score-mode gnus-ml > > >> > disp-table gnus-topic pop3 env passwd nnml nndraft nnmh nndoc > > >> > nnvirtual gnus-msg gnus-art mm-uu mm-view gnus-cache nntp nnoo > > >> > bytecomp byte-compile gnus-sum gnus-group gnus-undo nnmail > mail-source > > >> > format-spec gnus-start gnus-range gnus-spec gnus-int gnus-win > > >> > font-lock efs-cu records-util records records-autoloads > records-dindex > > >> > records-index records-vars bbdb-gnus gnus gnus-ems gnus-xmas bbdb > > >> > timezone hyperbole hmouse-key h-skip-bytec hmouse-drv hypb hact hhist > > >> > hvar set hversion w32-shellex browse-url message messagexmas mml > > >> > mm-decode mm-encode mailcap mm-bodies uudecode mail-parse rfc2045 > > >> > rfc2231 rfc2047 gnus-util qp ietf-drums time-date parse-time > > >> > mail-abbrevs nnheader nnheaderxm mm-util mail-prsvr mail-utils > > >> > mailheader vm-autoload highlight-headers vm-vars vm-startup > vm-version > > >> > vm smtpmail time-stamp sendmail rfc822 advice advice-preload cc-mode > > >> > cc-align cc-cmds cc-engine cc-styles cc-langs cc-vars wid-edit > > >> > cus-face cc-menus imenu cc-defs zenirc-autoloads > > >> > xslt-process-autoloads xemacs-devel-autoloads xemacs-base-autoloads > > >> > w3-autoloads vm-autoloads viper-autoloads view-process-autoloads > > >> > vhdl-autoloads vc-cc-autoloads vc-autoloads tramp-autoloads > > >> > tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads > > >> > textools-autoloads text-modes-autoloads texinfo-autoloads > > >> > supercite-autoloads strokes-autoloads speedbar-autoloads > > >> > sounds-wav-autoloads sounds-au-autoloads slider-autoloads > > >> > sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads > > >> > scheme-autoloads rmail-autoloads reftex-autoloads psgml-autoloads > > >> > ps-print-nomule-autoloads ps-print-autoloads prog-modes-autoloads > > >> > pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads > > >> > net-utils-autoloads misc-games-autoloads mine-autoloads > mh-e-autoloads > > >> > mew-autoloads mailcrypt-autoloads mail-lib-autoloads jde-autoloads > > >> > ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads > > >> > hm--html-menus-autoloads gnus-autoloads gnats-autoloads > > >> > games-autoloads fsf-compat-autoloads frame-icon-autoloads > > >> > forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads > > >> > eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads > > >> > eicq-autoloads efs-autoloads edt-autoloads edit-utils-autoloads > > >> > ediff-autoloads edebug-autoloads dired-autoloads dictionary-autoloads > > >> > debug-autoloads crisp-autoloads cookie-autoloads clearcase-autoloads > > >> > cc-mode-autoloads calendar-autoloads calc-autoloads > > >> > c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads > > >> > apel-autoloads ada-autoloads Sun-autoloads lisp-autoloads loadhist > > >> > auto-show fontl-hooks code-cmds gutter-items menubar-items x-menubar > > >> > dragdrop mode-motion mouse itimer auto-save lisp-mode easymenu > > >> > iso8859-1 page buff-menu lib-complete help-nomule cus-file derived > > >> > frame text-props obsolete cus-start custom widget cl-extra mini-cl cl > > >> > cl-19 packages backquote very-early-lisp file-coding > > >> > mswindows-scrollbars mswindows toolbar native-sound scrollbar > > >> > network-streams subprocesses menu-accelerator-support menubar md5 > > >> > xemacs gutter tiff png gif jpeg xface xpm xbm lisp-float-type > > >> > windows-nt dragdrop-api dialog devices window-system base64) > > >> > > > >> > > > >> > Recent keystrokes: > > >> > ----------------- > > >> > > > >> > l SPC d a t a SPC b i t s . RET RET T h a n k SPC y > > >> > o u . RET RET - p d C-c C-c n n n n d n d d n n n n > > >> > q up up up up up up up up up up # # S l 1 RET M-< M-x > > >> > x e m SPC r e SPC BS BS b u SPC SPC BS BS BS BS BS > > >> > BS BS BS BS e SPC BS BS r e p o SPC r SPC x e SPC TAB > > >> > RET > > >> > > > >> > > > >> > Recent messages (most recent first): > > >> > ----------------------------------- > > >> > > > >> > Parsing d:\HOME\.mailrc... > > >> > Loading xemacsbug...done > > >> > Loading xemacsbug... > > >> > Making completion list... > > >> > Making completion list... > > >> > Changed level of nnml:amazon.art from 3 to 1 > > >> > Changed level of nnml:amazon.assoc from 3 to 1 > > >> > No more unread articles (Type n for comp.lang.postscript [3]) > > >> > Generating summary...done > > >> > Generating summary... > > >> > Sorting threads...done > > >> > Sorting threads... > > >> > Scoring...done > > >> > Scoring... > > >> > Fetching headers for nnml:scbwi.ne.admin...done > > >> > Fetching headers for nnml:scbwi.ne.admin... > > >> > Retrieving newsgroup: nnml:scbwi.ne.admin... > > >> > Expiring articles...done > > >> > Expiring articles... > > >> > No more unread articles (Type n for nnml:scbwi.ne.admin [2]) > > >> > > > >> > > > >> > > > >> > > > >> > > > >> > -- > > >> > -------- > > >> > Peter Davis Pageflex Inc > > >> > 617-520-8345 215 First Street > > >> > 617-868-4732 (FAX) Cambridge, MA 02142 > > >> > pdavis(a)pageflexinc.com http://www.pageflexinc.com > > >> > > > >> > > > > > > >-------- > > > Peter Davis Pageflex Inc > > > 617-520-8345 215 First Street > > > 617-868-0784 (FAX) Cambridge, MA 02142 > > > pdavis(a)pageflexinc.com http://www.pageflexinc.com > > > > > > >