(require 'po-mode)
(defun po-unfuzzy-region (beg end)
  "Remove the fuzzy attribute for entries in region."
  (interactive "r")
  (save-excursion
    (goto-char beg)
    (let ((here beg))
      (while (and (< 0 po-fuzzy-counter)
                  (< here end))
        (po-unfuzzy)
        (goto-char here)
        (cond ((re-search-forward po-fuzzy-regexp end t)
               (setq here (match-end 0))
               (goto-char (match-beginning 0)))
              (t
               (setq here end)))
        ))))