+(defun ew-search-sticked-eword (frag start)
+ (let* ((texts (symbol-name frag)) (len (length texts)))
+ (catch 'return
+ (while (string-match ew-encoded-word-regexp texts start)
+ (when (and (or ew-permit-null-encoded-text
+ (< (match-beginning 3) (match-end 3)))
+ (or ew-ignore-75bytes-limit
+ (<= (- (match-end 0) (match-beginning 0)) 75))
+ (or ew-permit-sticked-comment
+ (not (= (match-beginning 0) 0))
+ (not (ew-comment-frag-p (get frag 'prev-frag))))
+ (or ew-permit-sticked-comment
+ (not (= (match-end 0) (length texts)))
+ (not (ew-comment-frag-p (get frag 'next-frag))))
+ (or ew-permit-sticked-special
+ (not (= (match-beginning 0) 0))
+ (ew-comment-frag-p (get frag 'prev-frag))
+ (not (ew-special-frag-p (get frag 'prev-frag))))
+ (or ew-permit-sticked-special
+ (not (= (match-end 0) (length texts)))
+ (ew-comment-frag-p (get frag 'next-frag))
+ (not (ew-special-frag-p (get frag 'next-frag))))
+ )
+ (throw 'return t))
+ (setq start (1- (match-end 0))))
+ nil)))
+