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

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 > >