Improve wanderlust link handling in the case that wl-use-petname is set

Patch by David Maus

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-11-15  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-wl.el (org-wl-store-link): Handle the case that
+	`wl-use-petname' is set.
+
 	* org.el (org-set-effort): Improve prompt.
 	(org-get-outline-path): Widen to get full path.
 	(org-compact-display-after-subtree-move): Function removed.

lisp/org-wl.el

@@ -91,7 +91,11 @@
 		 wl-summary-buffer-elmo-folder msgnum)
 	      (elmo-msgdb-overview-get-entity
 	       msgnum (wl-summary-buffer-msgdb))))
-	   (from (wl-summary-line-from))
+	   (from (let ((from-field (elmo-message-entity-field wl-message-entity
+							      'from)))
+		   (if (listp from-field)
+		       (car from-field)
+		     from-field)))
 	   (to (let ((to-field (elmo-message-entity-field wl-message-entity
 							  'to)))
 		 (if (listp to-field)