diff -ruN /home/evg/.emacs.d/woman.el.orig /home/evg/.emacs.d/woman.el
--- /home/evg/.emacs.d/woman.el.orig	2007-10-07 12:03:17 +0800
+++ /home/evg/.emacs.d/woman.el	2007-10-07 12:09:50 +0800
@@ -537,6 +537,15 @@
   :type 'hook
   :group 'woman)
 
+(defcustom woman-buffer-name-format "*WoMan %b*"
+  "Format specification for WoMan's buffer name.
+These fields are available at this moment:
+
+%b	initial buffer name
+"
+  :group 'woman
+  :type 'string)
+
 
 ;; Interface options
 
@@ -1633,7 +1642,7 @@
 			   (substring bufname (1+ dot)) " "
 			   (substring bufname 0 dot))))
     (generate-new-buffer-name		; ensure uniqueness
-     (concat "*WoMan " bufname "*"))))
+     (format-spec woman-buffer-name-format (list (cons ?b bufname))))))
 
 (defvar woman-frame nil
   "Dedicated frame used for displaying WoMan windows.")