🚀 go-pugleaf

Hi!

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

I still don't get a default folder to be the first name of the sender
of the message.  I traced vm-auto-select-folder right to the part
where sti::default-folder was evaluated but I didn't get to see what
\\1 expanded to.  I have tested sti::default-folder and it works
alright.  

So what's wrong with my vm-auto-folder-alist?  Should I discard the
\\1 and take the address from the current folder instead?  But I got
the impression from the documentation that the above should work too.

Thank you for any suggestions.
--
Sami.Tikka@hut.fi   $@%5%_%F%#%C%+(J           "Live Long and Prosper!"
---------------------------------------------------------------------------
"I think there's a world market for about 5 computers."
        - Thomas J. Watson, Chairman of the Board, IBM (around 1948)