;; You should have received a copy of the GNU General Public License
;; along with mymail. If not, see <http://www.gnu.org/licenses/>.
+(add-to-list 'recentf-exclude "/tmp/mymail-vm-.*\.mbox")
+
(defun mymail/vm-visit-folder (param)
- (interactive (list (read-string "mymail-vm search: " nil 'mymail-vm-history)))
+ (interactive
+ (list (read-string "mymail: " nil 'mymail-vm-history)))
(let ((n 1)
(mbox-name nil)