X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-view.el;fp=mime-view.el;h=aaa53ceecceac851c7e81ef83010e1480542027d;hb=13eb6d41d45f612d3c934f5804602e5451264f5d;hp=75a2184b8ce312488274c1605a85623dcb53b434;hpb=598cf175b1d4f1b7370a7fcd5e57814149bab906;p=elisp%2Fsemi.git

diff --git a/mime-view.el b/mime-view.el
index 75a2184..aaa53ce 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1376,9 +1376,9 @@ button-2	Move to point under the mouse cursor
 ;;; @@ utility
 ;;;
 
-(defun mime-preview-find-boundary-info (&optional get-mother)
+(defun mime-preview-find-boundary-info (&optional with-children)
   "Return boundary information of current part.
-If GET-MOTHER, refer boundary surrounding current part and its branches."
+If WITH-CHILDREN, refer boundary surrounding current part and its branches."
   (let (entity
 	p-beg p-end
 	entity-node-id len)
@@ -1407,7 +1407,7 @@ If GET-MOTHER, refer boundary surrounding current part and its branches."
 	  ((null entity-node-id)
 	   (setq p-end (point-max))
 	   )
-	  (get-mother
+	  (with-children
 	   (save-excursion
 	     (catch 'tag
 	       (let (e i)