home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / gnu / emacs / vm / bug / 678 < prev    next >
Encoding:
Text File  |  1992-12-21  |  1.3 KB  |  32 lines
  1. Path: sparky!uunet!gossip.pyramid.com!olivea!sgigate!sgi!cdp!scott
  2. From: scott@igc.apc.org (Scott Weikart)
  3. Newsgroups: gnu.emacs.vm.bug
  4. Subject: Re: INBOX file saved with wrong user na
  5. Message-ID: <1400600001@igc.apc.org>
  6. Date: 18 Dec 92 03:26:00 GMT
  7. References: <CYRIL.92Nov27115952@mercure.cosm>
  8. Sender: Notesfile to Usenet Gateway <notes@igc.apc.org>
  9. Lines: 19
  10. Nf-ID: #R:CYRIL.92Nov27115952@mercure.cosm:1663849568:cdp:1400600001:000:884
  11. Nf-From: cdp.UUCP!scott    Dec 17 19:26:00 1992
  12.  
  13.  
  14. > I am using VM version 5.32 beta and I noticed the following problem : 
  15. > While reading my mail as "su", VM opens my INBOX file and gets my new mail
  16. > (if any), but when exiting, the INBOX file and modified folders are saved
  17. > under name "root".
  18.  
  19. Here's my modified version of vm-move-mail, with a chown to fix the ownership
  20. of folders when I'm "su root".  Note that I'm running VM 4.41, so vm-move-mail
  21. could have changed substantially (or even disappeared!).
  22.  
  23.    (defun vm-move-mail (source destination)
  24.      (let ((dest (expand-file-name destination)))
  25.        (call-process "movemail" nil nil nil (expand-file-name source) dest)
  26.        (if (eq (user-uid) 0)
  27.        (call-process "chown" nil nil nil (user-login-name) dest))))
  28.  
  29. Scott Weikart            Community Data Processing (CdP): 415-322-9069
  30. Internet: scott@igc.apc.org    Bitnet: scott%igc.apc.org@stanford
  31. UUCP Mail Net: uunet!cdp!scott
  32.