🚀 go-pugleaf

Sami-Jaakko Tikka writes:
 > I have been trying to set up an auto-folder-alist that enables vm to
 > give reasonable defaults for save-folders.
 > 
 > I have this in my vm-auto-folder-alist:
 > ....<stuff deleted>....
 > 			     ("From"
 > 			      ("\\(.+\\)" . (sti::default-folder \\1))))
 > 
 > and the function is like this:
 > 
 > (defun sti::default-folder (address) "\
 >   Called from vm-auto-folder-alist 'From'-branch.  mail-extract gives
 > me the sender's full name from which I select the first name."
 >   (let ((name (car (mail-extract-address-components address))))
 >     (string-match "^\\([A-Za-z0-9]+\\)" name)
 >     (substring name (match-beginning 1) (match-end 1))))

You need to say

(sti::default-folder (buffer-substring (match-beginning 1) (match-end 1)))