| 
					
				 | 
			
			
				@@ -142,13 +142,14 @@ ENTITY is a message entity." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-wl-store-link () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Store a link to a WL message or folder." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (cond 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-   ((memq major-mode '(wl-summary-mode mime-view-mode)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (org-wl-store-link-message)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-   ((eq major-mode 'wl-folder-mode) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (org-wl-store-link-folder)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-   (t 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    nil))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (unless (eobp) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (cond 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+     ((memq major-mode '(wl-summary-mode mime-view-mode)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (org-wl-store-link-message)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+     ((eq major-mode 'wl-folder-mode) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (org-wl-store-link-folder)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+     (t 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      nil)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-wl-store-link-folder () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Store a link to a WL folder." 
			 |