john@wpi.wpi.edu (John F Stoffel) (08/30/90)
Hello net, I have a question for all you rmail wizards out there. I want to modify my rmail so that whenever I type 'o' to save a message, it will not ask me if I wish to create it if it doesn't exist. I've narrowed down the function I need to modify, rmail-output-to-rmail-file. This function description is as follows: rmail-output-to-rmail-file: Append the current message to an Rmail file named FILE-NAME. If the file does not exist, ask if it should be created. If file is being visited, the message is appended to the Emacs buffer visiting that file. So what I want to do is remove the asking part about it's creation. I really don't know much lisp, but I'm willing to work on it. Thanks again for any and all help! ---------------------------------------------------------------------------- When you know who you are, you know what to do. -Pen, sibling of the shroud John Stoffel | john@wpi.wpi.edu | 508-792-5050 -- ---------------------------------------------------------------------------- When you know who you are, you know what to do. -Pen, sibling of the shroud John Stoffel | john%wpi.wpi.edu@cunyvm.bitnet | john@wpi.wpi.edu | 508-792-5050
rock@rancho.uucp (Rock Kent) (09/02/90)
John> I have a question for all you rmail wizards out there. I want John> to modify my rmail so that whenever I type 'o' to save a message, it John> will not ask me if I wish to create it if it doesn't exist. I've John> narrowed down the function I need to modify, John> rmail-output-to-rmail-file. You can do what you want if you modify rmail-output-to-rmail-file (rmailout.el) as follows: (setq rmail-last-rmail-file file-name) (rmail-maybe-set-message-counters) (or (get-file-buffer file-name) **Delete | (file-exists-p file-name) **Change from| (if (yes-or-no-p ** to| (if (file-exists-p file-name) **Delete | (concat "\"" file-name "\" does not exist, create it? ")) (let ((file-buffer (create-file-buffer file-name))) (save-excursion (set-buffer file-buffer) (rmail-insert-rmail-file-header) (let ((require-final-newline nil)) (write-region (point-min) (point-max) file-name t 1))) **Change from| (kill-buffer file-buffer)) ** to| (kill-buffer file-buffer)))) **Delete | (error "Output file does not exist"))) (save-restriction (widen) I'm really gonna have to learn context diffs some day :-). You should really wrap up your revised rmail-output-to-rmail-file into your .emacs so that you don't have to remember that you changed the source. You can do something like: (setq rmail-mode-hook '(lambda () (defun rmail-output-to-rmail-file . . . your new revised function definition . . . ) )) Good luck. *************************************************************************** *Rock Kent rock@rancho.uucp POB 8964, Rancho Sante Fe, CA. 92067* ***************************************************************************